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ABSTRACT 


Results  from  lovy  resolution  corps  and  divislo  r  level  war  games  an  d 
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oriented  to  the  armor/antlarmot'  battl  e,  wi  th  end  of  simulation  occurring 
at  about  500  meters  .  Consequently,  the  eft ects  o  f  disnnounted  u  nits  t  n  the 
corps/divtsion  level  combing  arms  battle  were  not  accounted  for  satt  s> 
factorily.  This  report  describes  a  method  for  reipmere ting  suc^ii  battles 
In  division  or  corps  levol  simulations  by  aggregating  terrain  effects 
and  numbers  of  weapon  systems  in  order  to  reduce  setup  and  run  require¬ 
ments  while  expHcl  tly  representing  dismou  nted  tactics »  weapon  lethality, 
and  target  vulnerability  .  The  metliod  has  general  applicability  In 
existing  war  games.  It  inas  been  Implemented  as  a  compuiterl  zed  combat 
model  in  the  Jiffy  war  g  eime  an d  used  in  gaining  siupport  for  the  High 
Technology  Li  ght  Di  vislo  fi  stud^. 


ill 


TABLE  OF  CONTENTS 


ACKNOWLEDGEMENTS .  ii 

ABSTRACT .  iii 

LIST  OF  TABLES .  v 

LIST  OF  FIGURES .  v 

CHAPTER  1 


’  Background  and  Purpose .  1-1 

The  DIAM  Data/ In  formation  Flow  Structure .  1-2 

Algorithms  Used  in  DIAM .  1-6 

References .  1-13 

CHAPTER  2 

DIAM  Internal  Data  Base .  2~1 

File  Structure  for  Terrain  Effects .  2-3 

File  Structure  for  Weapon  Vulnerability  .  2-10 

File  Structure  for  Weapon  Movement  Rates .  2-11 

File  Structure  for  Target  Acquisition  Rates  .  2-12 

File  Structure  for  Weapons  Characteristics .  2-14 

CHAPTE:'.  3 

Introduction .  3-1 

DIAM  Functional  Areas  .  3-1 

Subroutine  Summary .  3-4 

ft 

DIAM  Self-Documentation  Concept  .  3-4 

,  I'lAM  Code .  3-15 


LIST  OF  TABLES 


V 


CHAPTER  1 


MODEL  METHODOLOGY 

1-1.  BACKGROUND  AND  PURPOSE. 

a.  The  role  of  the  Combined  Arms  Studies  and  Analysis  Activity  (CASAA)  in 
the  hierarchy  of  Army  analysis  requires  the  study  of  corps  and  division  level 
problems.  Analyses  at  this  level,  including  results  from  corps  and  division 

♦  level  war  game  simulations,  have  become  increasingly  important  to  decisions 

involving  weapon  system  procurements,  force  structuring,  and  scenario 
generation  for  the  TRAOOC  community. 

w 

b.  The  armor-ant 1  armor  battle  is  generally  well  represented  in  most 
corps/division  models,  as  are  other  combined  arms  aspects  such  as  indirect 
fire,  tactical  air,  close  air  support,  air  defense,  and  minefields.  However, 
the  contributions  of  small  infantry  units--especial ly  those  involving 
dismounted  operations--have  not  been  adequately  represented.  Most 
corps/division  level  simulations  represent  closure  of  the  forces  to  ranges  of 
1000  to  500  meters.  At  this  point  the  simulated  battles  are  terminated 
without  regard  to  the  closure,  assault,  and  withdrawal  phases. 

c.  Analysis  conducted  with  these  models  often  fails  to  give 
decisionmakers  a  basis  for  evaluating  the  effectiveness  of  dismounted 
infantry.  Consequently,  in  February  1980  CASAA  was  tasked  by  Commander, 
Combined  Arms  Center  (CAC)  to  develop  methods  for  simulating  the  effectiveness 
of  dismounted  infantry  in  a  combined  arms  corps/division  environment.  A 
two-phased  effort  was  initiated  to  address  this  problem. 

i 

(1)  The  first  phase  consisted  of  the  basic  research  necessary  for  any 
combat  model  development.  During  this  phase  the  critical  battle  activities 
impacting  on  division  effectiveness  were  defined  through  the  use  of  mission 
profiles  supplied  by  the  US  Army  Infantry  Center  (USAIC)  and  through  informal 
discussions  with  USAIC  personnel.  A  review  of  the  ability  of  currently 
running  combat  models  to  represent  these  activities  was  also  conducted.  The 
first  phase  of  the  study  was  completed  by  developing  a  methodology  for 
representing  these  activities  in  a  low  resolution  division  model.  The 
methodology  included  identification  of  the  basic  infantry  units  that  must  be 
modeled,  algorithms  describing  the  effectiveness  of  these  units  in  various 
activities,  and  data  sources  to  support  these  algorithms.  A  complete  report 
on  this  phase  of  the  study  effort  is  contained  in  CASAA  TR  6-81,  Dismounted 
Infantry  Aggregation  Methodology  Study  (PI AMS),  August  1981. 

(2)  The  second  phase  of  the  effort  was  implementation  of  the 
methodology;  i.e.,  building  the  model  (the  Dismounted  Infantry  Aggregation 
Model— DIAM),  constructing  the  data  bases,  validating  the  model,  and 
exercising  it  in  support  of  several  CAC  studies.  Model  construction  was 
completed  in  September  1981,  and  interface  with  the  corps/division  level  Jiffy 
War  Game  took  place  in  October  1981.  Although  DIAM  is  currently  in  use  as  a 


submodule  of  Jiffy,  it  can  also  be  used  alone  to  analyze  the  effectiveness  of 
a  combined  arms  force  as  it  closes  on  dismounted  infantry  positions  from 
ranges  of  1000  meters. 

d.  -The  purpose  of  this  report  is  to  provide  a  documented  reference  for 
OIAM.  The  report  is  designed  to  serve  two  types  of  readers. 

(1)  Chapter  1  describes  the  overall  methodology  used  in  developing 
the  computer  code.  It  contains  a  general  discussion  of  the  algorithms  used  to 
represent  the  dismounted  battle  and  is  provided  for  the  use  of  those  readers 
interested  in  "What's  going  on  inside  the  model." 

(2)  Chapters  2  and  3  were  developed  for  those  readers  who  are 
interested  in  executing  the  model.  Chapter  2  describes  the  model  data  base. 
Chapter  3  contains  a  listing  of  the  model  code.  DIAM  is  written  in  FORTRAN  77 
using  a  modular  design  dictated  by  standard  software  engineering  practices. 

The  code  listed  in  chapter  3  represents  the  current  Jiffy  application  of  DIAM 
in  subroutine  form.  The  code  could  easily  be  modified  for  use  in  stand-alone 
form. 

1-2.  THE  DIAM  DATA/INFORMATION  FLOW  STRUCTURE.  DIAM  is  a  time  stepped, 
expected  value  simulation.  During  each  minute  of  battle,  the  movement  of  both 
forces,  their  ammunition  expenditures,  and  losses  to  both  forces  are 
calculated.  The  model  requires  an  extensive  data  base  to  represent  the 
lethality,  vulnerability,  and  mobility  of  a  dismounted  force  in  a  combined 
arms  battle.  Figure  1-1  shows  the  various  types  of  data  bases  required  by  the 
DIAM  attrition  model.  The  figure  shows  that  the  model  requires  data  inputs 
from  two  sources,  a  host  and  its  own  internal  data  base. 

a.  Data  Input  From  Host.  Host  inputs  are  used  by  DIAM  to  establish  a 
battle  scenario.  In  essence  they  describe  who  is  fighting,  what  type  of 
battle  the  user  wishes  to  model,  and  where  (type  of  terrain)  the  f’ght  will 
occur.  They  represent  a  simplified  version  of  the  type  of  scenario  data 
required  for  a  high  resolution  model.  The  host  may  be  either  a  larger  model 
using  OIAM  as  a  submodule,  such  as  Jiffy,  or  an  analyst/gamer  using  DIAM  in 
the  stand-alone  version.  The  following  data  are  required  from  the  host: 

(1)  Weapon  lists.  Complete  lists  of  all  weapons  to  be  represented  in 
the  OIAM  battle  must  be  provided  by  the  host.  DIAM  currently  has  a  library  of 
25  different  weapon  types  (e.g,.  Viper,  Dragon,  IMAWS,  M-1,  IFV)  for  Blue  and 
25  types  for  Red,  The  user  is  allowed  to  select  a  maximum  of  10  Blue  types 
and  10  Red  types  for  each  battle.  The  number  of  weapons  of  each  type  (e.g., 

75  Viper,  5  Dragon,  10  M-1)  must  also  be  provided  by  the  user.  The  model 
automatically  positions  these  weapons  on  the  terrain  in  response  to  the  user's 
selection  of  battle  scenario  (see  para  b(2).  Terrain  effects,  below). 

(2)  Artillery  firing  rates.  Artillery  firing  rates  and  loss  rates  to 
each  weapon  type  are  also  required  from  the  host.  The  version  of  DIAM 
described  in  this  report  uses  the  Jiffy  artillery  module  to  assure  consistency 
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Figure  1-1.  DIAM  data  and  information  flow. 


with  other  Jiffy  results.  However,  DIAM  is  structured  so  that  lethal 
area/target  density  artillery  loss  algorithms  could  easily  be  implemented  in 
the  module. 

(3)  Tactical  scenario.  Host  selection  of  the  tactical  scenario  is 
also  required.  The  DIAM  module  currently  has  a  library  of  six  terrain  areas 
available.  The  user  is  required  to  select  a  terrain  location  and  denote 
either  the  Red  or  the  Blue  force  as  attacker.  DIAM  responds  by  accessing  the 
proper  terrain  data  base  and  arraying  the  user-defined  forces  on  the  terrain. 
The  visibility  condition  (day,  night,  or  obscured)  is  also  required  by  the 
module.  Two  other  host  data  elements  are  required  to  describe  the  DIAM  battle 
framework.  The  initial  condition  of  both  forces  is  represented  by  the  percent 
of  basic  load  available  to  each  weapon  type  and  the  opening  ranges  between  the 
forces.  The  opening  range  must  be  less  than  1000  meters.  The  host  data 
element  describing  disengagement  criteria  is  an  optional  requirement.  The 
OIAM  structure  allows  the  host  to  specify  attrition  thresholds  and  range 
thresholds  for  each  weapon  type.  These  thresholds  represent  maximum  loss 
levels  and  minimum  closure  distances  to  enemy  force  elements  that  will  be 
sustained  by  a  force  prior  to  its  withdrawal.  Violation  of  these  thresholds 
for  either  force  will  initiate  its  withdrawal.  If  the  user  does  not  specify 
these  thresholds,  they  will  be  specified  by  the  DIAM  module. 

b.  Internal  Data  Base.  The  DIAM  module  also  maintains  an  extensive 
internal  data  base.  Referring  again  to  figure  1-1,  the  model  has  access  to  a 
computerized  library  describing  various  terrains  and  weapon  systems.  These 
library  entries  are  accessed  by  the  module  in  response  to  host  requirements. 
The  libraries  fall  into  the  following  categories: 

(1)  Weapon  system  configuration  and  performance.  These  data  describe 
weapon  system  performance  under  various  postures  (attack  or  defend)  and 
environmental  conditions  (day,  night,  obscured  day).  They  are  supplied  by  the 
US  Army  Materiel  Systems  Analysis  Activity  (USAMSAA)  and  the  Night  Vision  and 
Electro-optics  Laboratory  (NV&EOL).  The  elements  of  this  part  of  the  data 
base  are: 

.  Single  shot  kill  probabilities  for  each  ammunition  against  each 
platform  type  in  both  defensive  and  attack  postures.  Platforms  are 
representative  of  both  vehicles  and  personnel. 

.  Movement  rates  under  day  and  night  conditions  by  platform  type. 

.  Time  required  by  sensors  to  detect  a  target  at  various  ranges.  OIAM 
divides  its  sensors  into  four  categories:  unaided  eye,  optically 
aided  eye,  generic  image  intensifier,  and  generic  thermal  device. 

.  Time  required  to  aim,  fire,  guide,  and  reload  for  each  weapon 
system. 


.  Principal  armaments  and  basic  loads  for  each  platform.  Weapon 
platforms  (personnel,  vehicles,  crews)  can  carry  multiple  weapons  in 
DIW.  For  example,  an  infantry  Dragon  gunner  can  also  engage 
personnel  targets  with  a  rifle. 

(2)  Terrain  effects  on  vehicles  and  personnel. 

(a)  The  terrain  data  base  contains  data  representing  an 
important  tactical  aspect  of  the  OIW  battle.  Each  of  the  weapons  selected  by 

«  the  DIAM  user  is  assigned  to  one  of  four  general  groups: 

.  Personnel 

•  .  Heavy  armor  vehicles 

.  Light  armor  vehicles 

.  Systems  offset  from  the  battle  by  more  than  1000  meters  (e.g., 
mortars,  TOW). 

These  categories  are  used  by  OIAM  to  establish  movement  locations  and  the 
tactical  geometry  of  the  force  structures.  The  module  considers  the  center  of 
mass  for  each  group  for  all  calculations  involving  movement  and  range 
parameters.  The  tactical  terrain  data  base  contains  initial  locations  for  the 
center  of  mass  of  each  OIAM  group  and  is  used  by  the  module  to  deploy  weapon 
systems  in  a  representative  tactical  array  at  the  beginning  of  each  battle. 

(b)  The  terrain  effects  data  base  is  used  by  DIAM  to  detennine 
the  percent  of  each  force  visible  to  firers  in  the  opposing  force.  This  data 
base  was  developed  using  defensive  positions  and  attacker  approach  routes 
resulting  from  a  map  analysis  conducted  by  CASAA  and  the  US  Amy  Infantry 
School.  The  CASAA  Battlefield  Visualization  Graphics  computerized  terrain 
system  was  used  to  analyze  the  area  along  the  avenues  of  approach  visible  to 
each  defensive  position.  This  provided  the  percent  of  the  attack  corridor 
visible  in  range  bands  of  200-meter  increments  to  each  defensive  position.  As 
the  DIAM  attrition  module  moves  the  threat  forces  along  the  attack  corridors, 
the  percent  of  corridor  visible  is  applied  to  the  force,  providing  number  of 
systems  that  can  be  targeted  by  the  defenders.  DIAM  currently  has  a  library 
of  six  different  terrain  tactical  situations.  Analytical  procedures  to 
develop  data  bases  for  new  situations  require  approximately  2  mandays.  A 
discussion  of  these  procedures  can  be  found  in  Chapter  2  of  this  report. 

(3)  Tactical  decision  criteria. 

(a)  The  DIAM  module  simulates  tactical  responses  of  both 
individual  weapon  systems  and  the  force  to  battle  conditions.  Individual 
tactical  responses  are  limited  to  the  following: 

.  Personnel  riding  in  light  amor  vehicles  may  dismount  for  an  assault. 

.  Dismounted  personnel  withdrawing  from  the  battle  may  mount  available 
light  carriers. 

.  Light  amored  vehicles  may  take  up  overwatch  positions. 
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These  tactical  responses  are  triggered  by  closure  distances  between  the 
groups.  For  example,  the  Red  commander  may  want  50  percent  of  all  mounted 
personnel  to  dismount  their  carriers  when  they  move  within  300  meters  of  the 
Blue  defender's  dismounted  Viper  positions.  The  tactical  data  base  contains 
the  desired  range  at  which  the  tactic  must  be  executed,  the  percent  of  the 
group  required  to  perform  the  tactic,  and  an  identifier  of  the  opposing  group 
triggering  the  tactic.  Under  conditions  requiring  a  DIAM  group  to  operate  in 
two  tactical  modes  (in  the  example,  50  percent  personnel  mounted,  50  percent 
dismounted),  the  module  splits  the  group  to  represent  movement  and  location 
characteristics  of  both  groups. 

(b)  Force  tactical  responses  are  centered  around  the  decision  to 
withdraw  from  the  battle.  As  mentioned  previously,  the  host  can  optionally 
provide  criteria  (percent  of  force  lost,  range  between  groups)  to  trigger 
withdrawal.  If  these  are  not  provided  by  the  host  the  module  defaults  to  the 
values  found  in  this  data  base.  DIAM's  current  implementation  in  Jiffy  allows 
the  gamer  to  override  the  withdrawal  criteria  (either  stay  and  fight  or  move 
out)  following  status  reports,  which  are  given  at  selected  intervals  during 
the  DIAM  battle. 

1-3.  ALGORITHMS  USED  IN  DIAM. 

a.  Figure  1-2  presents  a  generalized  logic  flow  of  the  processes 
occurring  in  the  DIAM  module.  The  purpose  of  this  diagram  is  to  provide  a 
framework  for  consideration  of  the  attrition  algorithms  used  in  the  module. 

The  DIAM  module  is  a  deterministic  model  using  expected  value  techniques  for 
calculating  weapon  losses  to  both  forces.  DIAM  first  selects  the  appropriate 
weapon  system  data  and  terrain  data  for  the  battle  to  be  played,  then  locates 
the  forces  in  their  tactical  positions  on  the  terrain.  For  each  battle 
minute,  DIAM  constructs  a  firing  profile  for  each  weapon  system.  This  profile 
consists  of  the  number  of  targets  visible  and  within  range  that  are  detected 
by  the  system.  On  the  basis  of  this  profile,  the  model  calculates  the  rounds 
fired  by  each  system.  Losses  to  each  firer  and  target  are  then  determined, 
and  force  levels  are  updated.  The  number  of  incoming  rounds  and  the  losses 
sustained  by  the  force  are  used  to  calculate  suppressive  effects  for  the  next 
minute  of  battle.  Suppression  affects  rate  of  fire,  movement,  and 
vulnerability.  After  suppressive  effects  are  calculated,  movement  rates  are 
determined  and  force  weapon  positions  are  updated  for  the  current  minute. 
Tactical  thresholds  are  then  compared  with  current  positions  and  force 
levels.  If  the  disengagement  criteria  are  satisfied,  tactical  requirements 
(for  example,  mounting  of  vehicles)  are  performed  and  a  timer  is  set  for  the 
disengagement  period.  Individual  tactics  also  may  be  altered  (dismount, 
overwatch)  in  response  to  tactical  thresholds.  A  new  terrain  data  base  is 
retrieved  from  the  module  library  to  represent  reduced  visibility  conditions 
between  forces  during  disengagement  and  pursuit,  and  the  status  of  affected 
groups  is  updated.  DIAM  assumes  that  disengagement  is  completed  after  10 
minutes.  A  final  battle  report  is  printed  following  disengagement. 
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b.  The  following  paragraphs  provide  a  detailed  description  of  the 
algorithms  used  for  calculation  of  rounds  fired,  determination  of  losses, 
calculation  of  suppressive  effects,  and  calculation  of  group  movement.  The 
remaining  steps  are  primarily  model  bookkeeping  and  are  documented  in  the  DIAM 
computer  code  found  in  chapter  3. 

(1)  Calculation  of  rounds  fired.  The  maximum  number  of  rounds  fired 
per  minute  by  weapon  i  at  target  j  is  R^-j,  which  is  the  reciprocal  of  the 
time  required  to  fVe  one  round  at  the  given  target;  i.e.,  R^j  =  VT^j. 

^ij  ■  (^ij/*^ij  ^ij  *-i  ^ij)  •'•ij/^i 

where: 


T^j  =  expected  time  in  minutes  for  a  weapon  of  type  i  to  fire  at  a 
target  of  type  j,  given  a  uniform  distribution  of  fire  at  all 
targets  available. 

Djj  =  expected  number  of  minutes  for  a  weapon  of  type  i  to  detect  a 
weapon  of  type  j. 

number  of  rounds  fired  by  i  at  j  per  detection. 

A^j  =  expected  number  of  minutes  required  to  aim  i  at  j. 

-  expected  number  of  minutes  to  reload  i. 

=  expected  number  of  minutes  for  projectile  from  i  to  reach  j. 
N^j  =  expected  number  of  targets,  of  type  j  visible  to  firer  i. 

=  expected  number  of  targets  of  all  types  visible  to  firer  i. 


(a)  This  firing  rate  assumes  targets  are  of  equal  priority  and 
are  allocated  uniformly  across  all  targets  visible  and  detected  by  the  firer. 
If  other  types  of  allocations  are  desired,  it  is  only  necessary  to  change  the 
fraction  N^jVN^  to  the  desired  weighting  method.  The  number  of  targets 
visible  is  calculated  in  the  following  manner: 


1-8 


where: 

n^  =  the  total  ''.umber  of  target  weapons  of  type  j  in  the  target  force. 

V  =  the  fraction  of  the  terrain  corridor  containing  target  weapon  system 
j  not  visible  to  any  of  the  firing  force  containing  system  i. 

Vjj  =  the  fraction  of  the  terrain  corridor  containing  target  systems  of 
category  0  visible  to  all  firing  weapons  of  category  I.  Recall 
that  all  weapon  systems  fall  into  one  of  four  categories 
(dismounted  personnel,  heavy  vehicles,  light  vehicles,  mc'^tars). 

In  this  case  J  is  the  category  containing  the  target  system  j  and 
I  is  the  category  containing  the  firing  system  i.  These 
visibility  fractions  vary  by  200-meter  range  bands  as  mea  ured 
between  weapon  systems  i  and  j. 

S-!  =  the  fraction  of  targets  of  type  j  suppressed  for  this  minute.  The 

C 

factor  j  represents  OIAM's  modeling  of  one-half  of  all  suppressed 
personnerin  a  temporary  covered  position, 

(b)  this  firing  rate  (R^j)  is  for  unsuppressed 
situations--suppression  will  reduce  this  rate  as  follows: 

"  ‘^ij  ^it  (1-3) 

where: 

R^j  =  suppressed  firing  rate  of  weapons  of  type  i  at  targets  of  type  j. 

R^j  =  unsuppressed  firing  rate  of  weapons  of  type  i  at  targets  of  type 

J  • 

=  suppression  factor  for  firing  times  of  weapon  i  at  time  t. 

(2)  Calculation  of  loss  rates. 

(a)  The  expected  number  of  weapons  (considered  as  targets)  of 
type  j  killed  by  weapons  in  the  opposing  force  of  type  i  is  determined  from 
the  following  equation: 

=  “io  -  0  - '(/"j)  C-'') 

where: 

K^j  =  the  expected  number  of  type  j  weapons  killed  by  type  i  weapons. 

Nij  =  the  expected  number  of  type  j  weapons  visible  to  weapons  of  type 

i . 
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P^j  =  the  single  shot  kill  probability  of  weapon  i  against  weapon  j. 

I 

R^j  =  suppressed  firing  rate  o^"  weapons  of  type  i  at  targets  of  type  j 
(from  equation  1-3) . 

C^j  =  number  of  weapons  of  type  i  firing  at  targets  of  type  j. 

a-j  =  the  fraction  of  aimed  rounds  fired  by  weapon  system  i.  For 
attackers,  =  0.30.  For  defenders  a^-  =  0.60. 


given  by: 


where: 


(b)  The  number  of  weapons  of  type  i  firing  at  target  type  j  is 


S-. 

C..  =  n.  V,,  (1  - 


(1-5) 


n^  =  the  total  number  of  weapons  of  type  i  in  the  firing  force. 

vjj  =  the  fraction  of  firing  positions  of  weapons  in  category  I  visible 
to  target  weapons  in  category  J.  Note  that  the  use  of  vjj  in  the 
computation  of  the  number  of  targets  and  vjj  in  computing  the 
number  of  firing  weapons  causes  the  following  representation  in 
the  model:  the  number  of  firers  engaging  targets  j  are  only  those 
that  have  physical  line  of  sight  to  j  (represented  by  vji). 

Likewise,  the  number  of  targets  j  engageable  by  i  are  only  those 
that  can  be  seen  by  i  (represented  by  vjj). 

Si  =  the  fraction  of  firing  systems  of  type  i  suppressed  for  this 
minute.  S^/2  indicates  that  one-half  of  all  suppressed  weapons 
in  CIaM  do  not  fire. 

(c)  Equation  1-4  is  consistent  with  the  assumption  that  targets 

are  selected  at  random  with  replacement.  Bash  and  Inselmann  (1979)  derived  the 
equation.  Also  developed  there  is  the  equation  for  determining  the  expected 

number  of  kills  when  more  than  one  type  of  weapon  is  firing  at  one  target  type 
and  all  targets  can  be  engaged  by  all  weapons: 


L..  =  (1  -  n  (1  - 
J  all  i 


K. . 
U 


ij 


I'NlJ 


(1-6) 


where: 


Lj  =  expected  number  of  losses  per  minute  of  weapons  of  type  j. 

K^j  =  expected  number  of  type  j  weapons  killed  by  type  i  weapons  (from 
equation  1-4). 
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Njj  =  number  of  weapons  of  type  j  in  force  visible  to  weapons  of  type  i. 

Equations  1-4  and  1-6  produce  an  approximation  to  the  situation  where  different 
weapons  see  different  subsets  of  targets. 

(3)  Calculation  of  suppressive  effects.  The  DIAM  suppression  module 
was  taken  from  the  Jiffy  war  game.  This  module  provides  suppression  of  the 
firing  rates  and  movement  rates  for  both  dismounted  personnel  and  vehicular 
mounted  armaments.  The  following  four  equations  are  used  to  calculate  the 


suppressive  effects  in  DIAM. 

Y^-  =  Wi  (2.06  X  +  1.54)/100  (1-7) 

Y,-  =  Wi  (1.06  X  +  0.14)/100  (1-8) 

Yi  =  Wi  (8  X  +  3.28)/100  (1-9) 

Yi  =  Wi  (2.5  X  1*5  +  0.5)/100  (1-10) 

where: 


Yi  =  fraction  of  weapons  of  type  i  that  are  suppressed. 

X  =  ratio  of  total  losses  suffered  by  weapons  of  type  i  from  direct  fire, 
artillery,  and  mines  to  total  losses  inflicted  by  weapons  of  type  i. 

W^  =  1  for  category  4  (heavy)  weapons  and  2.86  for  all  other  types  of 
weapons  (from  Jiffy). 

Equation  1-7  is  for  defenders  in  the  engagement  phase,  1-8  is  for  defenders  in 
the  withdrawal  phase,  1-9  is  for  attackers  in  the  engagement  phase,  and  1-10  is 
for  attackers  in  the  withdrawal  phase.  The  maximum  suppression  for  firing  is 
set  at  0.8  and  the  maximum  for  movement  is  0.9.  Suppressed  systems  are  less 
lethal  and  less  vulnerable  (see  use  of  S-s,  Sj  in  equations  1-2,  1-3,  and 
1-5).  Lethality  and  mobility  are  assumed  to'^be  reduced  because  systems  being 
suppressed  will  seek  available  cover.  This  in  turn  is  assumed  to  make  the 
system  less  vulnerable. 

(4)  Calculation  of  movement  rates  and  tactical  locations. 

(a)  The  movement  rate  for  each  weapon  is  calculated  by  reading 
the  unsuppressed  rate  for  this  terrain  and  tactical  scenario  from  the  data  base 
and  then  applying  the  suppression  factor; 


Mh-n,  ('-v,t)  (1-11) 

where: 


=  suppressed  movement  rate  for  weapon  i  at  time  t. 


M-j  =  unsupprfissed  movement  rate  from  data  base. 

V^-|.  =  fraction  of  movement  suppressed  by  previous  incoming  fire. 


These  rates  are  adjusted  so  that  weapons  in  overwatch  positions  do  not  move  and 
any  vehicles  with  dismounted  personnel  will  move  at  the  dismounted  rate  in  the 
meeting  and  engagement  phase  of  the  battle. 

(b)  Tactical  geometry  is  represented  by  locating  the  components 
of  each  force  about  a  central  force  reference  point.  Each  weapon  played  in  the 
model  is  categorized  as  belonging  to  one  of  four  groups  (dismounted  personnel, 
heavy  armor,  light  armor,  or  mortars).  The  initial  locations  of  the  center  of 
each  group  with  respect  to  the  force  reference  point  are  maintained  as  part  of 
the  data  base  for  each  tactical  scenario  available  for  play  in  the  DIAM 
submodel.  Selection  by  the  main  program  of  a  particular  scenario  causes  the 
DIAM  submodel  to  modify  the  position  of  each  weapon  group  based  on  the 
following  formula. 

LRjo  =  D+Aj  (1-12) 

18^0=  D+^I  (1-13) 

where: 


LRjo  =  location  of  all  Red  weapons  of  type  j  at  time  zero. 

LB^q  =  location  of  all  Blue  weapons  of  type  i  at  time  zero. 

D  =  range  between  center  of  mass  of  forces  at  start  of  the  battle. 

Aj  Aj  =  the  offset  distance  of  one  of  four  weapon  categories  from 
’  the  center  mass  of  the  force.  Aj  is  the  offset  for  all  Blue 

weapons  of  category  I.  Likewise,  Aj  is  the  offset  for  all 
Red  weapons  of  category  0. 

(c)  Each  weapon  location  is  changed  each  minute  based  upon  a 
suppressed  movement  rate  such  that  the  location  at  any  time  (t  +  1)  minutes 
into  the  battle  is  defined  by: 


LR 


j.t+1 


'"jt 


+  LR 


jt 


(1-14) 


where: 


LRj  |.^.i  and  LP,-^  =  the  location  at  time  t+1  and  t  respectively  of 
''  weapon  j. 


1-12 


Mj^  =  the  suppression  of  movement  for  weapons  j 
during  minute  t. 

The  OIAM  battle  begins  with  the  attacking  force  moving  toward  the  defensive 
positions.  Losses  are  assessed  to  both  forces  until  a  tactical  threshold  is 
reached.  At  this  point  the  withdrawal  phase  of  the  battle  is  begun.  This  is 
simulated  by  a  change  in  the  percent  visible  tables  (representing  a  force 
minimizing  intervisibility  with  the  enemy  as  it  breaks  contact).  The  model 
moves  the  withdrawing  forces  out  of  firing  range  and  then  prints  the  losses  to 
both  Red  and  Blue  forces. 
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CHAPTER  2 


DIAM  FILE  STRUCTURES 
2-1.  DIAM  INTERNAL  DATA  BASE. 

a.  The  DIAM  internal  data  bases  are  used  by  the  model  to  describe  weapon 
performance,  the  terrain  effects  on  the  surviving  force,  and  the  tactical 
disengagement  criteria.  The  data  are  stored  on  five  random  access  files  as 
shown  in  figure  2-1. 

(1)  The  Weapon  Vulnerability  file  (Logical  Unit  16)  contains 
probabilities  of  kill  for  25  Blue  weapons  and  25  Red  weapons.  The 
probabilities  are  stored  in  a  range-dependent  manner.  Two  files  exist,  one 
representing  Blue  in  prepared  defensive  positions  and  the  other  representing 
Blue  in  an  attack. 

(2)  The  Terrain  Effects  file  (Logical  Unit  25)  contains  data 
describing  the  percentage  of  the  opposing  force  visible  to  both  attackers  and 
defenders.  The  percentages  are  both  weapon  and  range  dependent.  Six  terrain 
sites  (four  in  the  Mideast  and  two  in  Europe)  are  currently  available  in  the 
DIAM  model . 

(3)  The  Movement  Rates  file  (Logical  Unit  20)  contains  rates  of 
advance  for  four  weapon  categories;  i.e.,  dismounted  personnel,  heavy  armored 
systems,  light  armored  systems,  and  mortars.  The  movement  rates  are  dependent 
on  terrain  type  and  visibility  conditions. 

(4)  The  Target  Acquisition  Rate  file  (Logical  Unit  20)  provides 
average  acquisition  times  for  four  sensor  types  (optical  systems  .4/i-.7/i  , 
image  intensifier  systems  .7^  -1.1  ,  far  infrared  systems  8p  -14/i  ,  and  the 
unaided  eye)  detecting  four  target  types  (vehicular  target  fully  exposed  or  in 
hull  defilade  and  personnel  target  fully  exposed  or  in  foxhole).  The 
acquisition  times  are  dependent  on  target  range  and  atmospheric  visibility. 

(5)  The  Weapons  Characteristics  file  (Logical  Unit  15)  is  used  to 
describe  the  primary  sensor  type,  movement  rate  category,  and  basic  load  of 
the  primary  armament  for  each  of  the  25  Blue  and  25  Red  weapons  found  in  the 
Weapon  Vulnerability  file.  For  several  weapon  systems  the  DIAM  model 
considers  both  a  primary  and  secondary  armament.  For  dismounted  personnel 
carrying  a  Dragon  or  Viper,  the  model  also  plays  rifle  fire  against  opposing 
personnel  targets.  The  basic  loads  for  secondary  systems  are  updated  by  the 
DIAM  model  logic  and  are  not  contained  in  this  data  base. 

b.  It  will  be  noted  from  figure  2-1  that  DIAM  uses  the  random  access  file 
in  a  read  only  mode.  The  random  access  structure  provides  the  user  with 
flexibility  in  selecting  weapon  systems,  terrain  type,  and  environmental 
conditions  for  play  in  the  dismounted  battle.  The  following  paragraphs 
provide  detailed  descriptions  of  the  file  structures.  To  avoid  classification 
of  this  report,  example  data  bases  are  not  included.  However,  example  data 
bases  can  be  obtained  from  the  US  Army  Combined  Arms  Studies  and  Analysis 
Activity,  Fort  Leavenworth,  KS  upon  submission  of  proper  clearances. 
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Figure  2-1,  DIAM  internal  data  bases. 
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2-2.  FILE  STRUCTURE  FOR  TERRAIN  EFFECTS. 

a.  The  terrain  effects  data  are  used  by  the  model  to  represent  the 
percent  of  forces  visible  to  both  attacker  and  defender  during  the  battle. 

This  data  base  is  developed  using  digitized  terrain  and  military  judgment  in 
selecting  the  best  approach  routes  and  defensive  positions  for  a  particular 
terrain  location.  Figure  2-2  shows  the  first  step  in  developing  this  data 
base.  A  piece  of  digitized  terrain  has  been  selected  representing  the  battle 
site.  The  possible  approach  routes  have  also  been  noted  on  the  map. 

b.  The  second  step  in  data  base  development  is  shown  in  figures  2-3  and 
2-4.  Defensive  positions  have  been  selected  representing  typical  positions 
for  two  of  the  weapon  categories.  Line-of-sight  fans  representing  the  visible 
portions  of  the  advance  routes  have  also  been  drawn  using  the  digitized 
terrain  data  base. 

c.  The  final  step  in  data  base  development  is  to  calculate  the  percent  of 
attacker  corridor  visible  by  range  band  for  each  of  the  defender  positions. 

The  resulting  percents  are  used  in  the  terrain  effects  data  base. 

d.  The  structure  of  the  random  access  file  is  as  follows: 

Record  1 

Record 
Word 


1-20 


Record  2 

Record 

Word 


1 


2 


3 


Data 

Type 

Alphanumeric 


Data 

Description 

Each  word  contains  four  alpha  characters. 
The  record  contains  a  description  of  the 
terrain;  e.g.,  "GERMANY  BLUE  ATTACK 
WOODED  AREA". 


Data 

Jm 

Real 

Real 

Real 


Data 

Description 

Percent  Red  dismounted  visible  to  Blue 
dismounted,  range  0-200m. 

Percent  Red  mortars  visible  to  Blue 
dismounted,  range  0-200m. 

Percent  Red  light  armor  visible  to  Blue 
dismounted,  range  0-200m. 


2-3 


ite 


Figure  2-3.  Line-of-sight  fan  for  a  TOW  position. 
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Figure  2-4.  Line-of-sight  fan  for  a  small  arms  positions. 


Record 

Data 

Data 

Word 

Description 

4 

Real 

Percent  Red  heavy  armor  visible  to  Blue 
dismounted. 

5-8 

Real 

Percent  Red  dismounted,  mortars,  light 
armor,  heavy  armor  visible  to  Blue 
mortars. 

9-12 

Real 

Percent  Red  dismounted,  mortars,  light 
armor,  heavy  armor  visible  to  Blue  light 
armor  at  0-200m. 

13-16 

Real 

Percent  Red  dismounted  mortar,  light 
armor,  heavy  armor  visible  to  Blue  heavy 
armor  at  0-200m. 

Records  3-6 

Contain  the  same  information  for  Red  targets  at  ranges  of  201-400,  401-600, 
601-800,  and  801-1000  meters. 

Records  7-11 

Contain  the  percent  of  Blue  visible  to  Red  during  the  engagement  phase  of  the 
battle.  The  structure  is  similar  to  that  used  for  records  2-6. 

Records  12-21 

Contain  the  percent  of  Red  and  81ue  visible  during  Blue  withdrawal.  The 
structure  is  similar  to  that  used  for  records  2-6. 

Records  22-31 

Contain  the  percent  of  Red  and  Blue  visible  during  Red  withdrawal.  The 
structure  is  similar  to  that  used  for  records  2-6. 

Record  32 

Contains  the  tactical  offset  distance  of  the  centroids  of  the  Blue  weapons 
categories  (dismounted  personnel,  mortars,  light  armor,  heavy  armor)  from  the 
Blue  force  centroid.  It  also  contains  similar  Red  tactical  offset  distances. 


Record 

Data 

Data 

Word 

Type 

Description 

1 

Real 

Tactical  offset  of  Blue  dismounted 
personnel  from  Blue  force  centroid 
(mecers ) . 
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Record 

Data 

Data 

Word 

Mi 

Description 

2 

Real 

Tactical  offset  of  Blue  mortars  (meters). 

3 

Real 

Tactical  offset  of  Blue  light  armor 
(meters ) . 

4 

Real 

Tactical  offset  of  Blue  heavy  armor 
(meters ) . 

5 

Real 

Tactical  offset  of  Red  dismounted 
personnel  from  Red  force  centroid 
(meters ) . 

6 

Real 

Tactical  offset  of  Red  mortars  from  Red 
force  centroid. 

7 

Real 

Tactical  offset  of  Red  light  armor  from 
force  centroid  (meters). 

8 

Real 

Tactical  offset  of  Red  heavy  armor  from 
force  centroid  (meters). 

Record  33 

Contains  the  corridor  width  (meters)  for  the  attacker. 

Record 

Data 

Data 

Word 

Mi 

Description 

1 

Real 

Corridor  width  in  meters  at  ranges  of 
0-200m  ^rom  force  centroid.  The  corridor 
is  for  attacking  dismounted  personnel. 

2-5 

Real 

Corridor  widths  for  dismounted  personnel 
at  ranges  of  201 -400m,  401-600m, 

601 -800m,  801 -1000m. 

6-10 

Real 

Corridor  widths  for  mortars  at  ranges  of 
0-200m,  201-400m,  601-800m,  801-1000m. 

11-15 

Real 

Corridor  widths  for  light  armor  at  range 
of  0-200m,  201-400m.  601-800m,  801-1000m. 

16-20 

Real 

Corridor  widths  for  heavy  armor  at  ranges 
of  0-200m,  201-400m,  601-800m,  801-1000m. 

Record  34 

Contains 

identical 

the  corridor  widths  for  the  defender  withdrawing.  The  structure  is 
to  record  33. 
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Record  35 


Contains  the  corridor  widths  for  the  attacker  withdrawal  routes.  The 
structure  is  identical  to  record  33. 

Record  36 

Contains  the  maximum  percent  of  weapons  that  will  be  lost  before  withdrawal. 
The  numbers  represent  tactical  decision  thresholds  upon  which  the  unit 
commander  bases  the  withdrawal  decision. 


Record 

Data 

Data 

Word 

Im 

Description 

1 

Real 

Maximum  percent  of  Blue  dismounted  lost 
before  Blue  withdrawal. 

2 

Real 

Maximum  percent  of  Blue  mortars  lost 
before  Blue  withdrawal. 

3 

Real 

Maximum  percent  of  Blue  light  armor  lost 
before  Blue  withdrawal. 

4 

Real 

Maximum  percent  of  Blue  heavy  armor  lost 
before  Blue  withdrawal. 

5-8 

Real 

Maximum  percent  of  Red  dismounted, 
mortars,  light  armor,  and  heavy  armor 
lost  before  Red  withdrawal. 
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2-3.  FILE  STRUCTURE  FOR  WEAPON  VULNERABILITY.  The  Weapon  Vulnerability  file 
is  divided  into  two  sections. 

a.  The  first  section  contains  125  records  describing  the  ability  of  25 
Blue  weapons  to  kill  25  Red  weapons  in  five  range  bands  0-200m,  201-400ni, 
401-600in,  601-800m,  and  801-1000m.  The  records  are  structured  as  follows: 

Record  1 

Record  Data  Data 

Word  Type  Description 

1  Alpha  Six-character  name  for  Blue  weapon  1. 

2  Real  Probability  of  kill  of  Red  weapon  1  by 

Blue  weapon  1  at  a  range  of  0-200m. 
(Probability  of  kill  represents  a 
catastrophic  kill— both  mobility  and 
firepower) . 

3  Real  Probability  of  kill  of  Red  weapon  2  by 

Blue  weapon  1  at  a  range  of  0-200m. 


26  Real  Probability  of  kill  of  Red  weapon  25  by 

Blue  weapon  1  at  a  range  of  0-200m. 

Records  2-5 

Describe  the  ability  of  Blue  weapon  1  to  kill  25  Red  weapons  in  the  remaining 
four  range  bands,  The  first  125  records  on  the  file  are  required  to  describe 
all  25  Blue  weapons. 

b.  The  second  section  of  this  file,  records  126  through  250,  contains 
probabilities  of  kill  for  Red  weapons  firing  against  Blue  targets.  These 
records  are  structured  the  same  as  the  Blue  lethality  records.  This  file  is 
read  in  DIAM  by  subroutine  PKIN. 


2-4.  FILE  STRUCTURE  FOR  WEAPON  MOVEMENT  RATES. 


a.  Data  in  the  Movement  Rates  file  is  used  by  DIAM  to  advance  four 
attacker  categories  during  the  engagement  phase  of  the  battle  and  to  move  the 
withdrawing  systems  during  the  withdrawal  phase  of  the  battle.  The  rates 
represent  rates  of  advance  achievable  under  unsuppressed  conditions.  The 
rates  are  adjusted  by  DIAM  to  represent  the  suppressive  effects  of  personnel 
and  vehicular  losses.  The  movement  rate  data  must  be  described  in  meters  per 
minute. 

b.  The  file  contains  rates  for  four  weapon  categories  (dismounted 
personnel,  mortars,  light  armor,  heavy  armor)  on  two  terrains  (open  and 
heavily  vegetated).  The  file  is  structured  into  three  sections  keying  on 
three  visibility  conditions  (clear  day,  clear  night,  and  heavily  obscured  day). 

(1)  The  first  section  consists  of  two  records  describing  Blue  and  Red 
movement  rates  on  a  clear  day  (visibility  range  greater  than  15km).  The 
records  are  structured  as  follows: 

Record  1 


Record 

Data 

Data 

Word 

Jm 

Description 

1 

Real 

Movement  rate  of  dismounted  Blue  in  open 
terrain  (meters/min). 

2 

Real 

Movement  rate  of  Blue  mortars  in  open 
terrain  (meters/min). 

3 

Real 

Movement  rate  of  Blue  light  armor  in 
open  terrain  (meters/min). 

4 

Real 

Movement  rate  of  Blue  heavy  armor  in 
open  terrain  (meters/min). 

5-8 

Real 

Movement  rate  of  Blue  dismounted, 
mortars,  light  armor,  and  heavy  armor  in 
close,  heavily  vegetated  terrain. 

Record  2 


Describes  Red's  movement  in  open  and  close  terrain  on  a  clear  day. 

(2)  The  second  section  contains  two  records  describing  Blue  and  Red 
movement  rates  at  night.  The  form  of  records  3  and  4  is  identical  to  records 
1  and  2. 

(3)  The  third  section  contains  two  records  describing  Blue  and  Red 
movement. rates  on  a  heavily  obscured  day  (visibility  range  of  500  meters). 

The  form  of  records  5  and  6  is  identical  to  records  1  and  2. 
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2-5.  FILE  STRUCTURE  FOR  TARGET  ACQUISITION  RATES. 


a.  The  Target  Acquisition  file  data  describe  the  ability  of  four  generic 
sensor  types,  to  detect  four  types  of  targets  at  various  ranges.  The  generic 
sensor  types  are  unaided  eye,  optically  aided  eye,  far  infrared  thermal 
imager,  and  image  intensifier  device.  The  targets  being  detected  are 
personnel  fully  exposed,  personnel  in  foxholes,  armored  vehicles  fully 
exposed,  and  armored  vehicles  in  hull  defilade.  The  data  represent  average 
times  for  each  sensor  to  detect  each  target  at  various  ranges.  The  file  is 
divided  into  three  sections.  Each  section  represents  detection  capabilities 
under  conditions  of  clear  day,  clear  night,  and  obscured  night. 

b.  The  first  section,  representing  clear  day,  is  structured  as  follows; 


Record  1 

Record 

Data 

Data 

Word 

lyge 

Description 

1 

Real 

Average  time  for  Blue  eye  to  detect  a 
fully  exposed  vehicle  at  0-200m  (min/ 
target). 

2-4 

Real 

Average  time  for  Blue  eye  to  detect  a 
hull  defilade  vehicle,  fully  exposed 
soldier,  or  soldier  in  defilade  at 
0-200m. 

5-8 

Real 

Average  time  for  a  Blue  optical  system 
to  detect  four  target  types  at  0-200m. 

9-12 

Real 

Average  time  for  a  Blue  thermal  imager 
to  detect  four  target  types  at  0-200m. 

13-16 

Records  2-5 

Real 

Average  time  for  a  Blue  image 
intensifier  device  to  detect  four  target 
types  at  0-200m. 

Consider  Blue’s  ability  to  detect  four  Red  targets  on  a  clear  day  at  target 
ranges  of  201-400m,  401-600m,  601-800m,  and  801-1000m.  Their  structure  is 
identical  to  record  1. 


Records  6-10 

Contain  detection  times  for  four  generic  Red  sensors  to  acquire  four  Blue 
targets  in  fv/e  equal  range  bands  from  0  to  1000m.  The  structure  of  these 
records  is  identical  to  records  1-5. 
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c.  The  second  section  contains  records  11-20.  These  records  describe 
Blue  and  Red  ability  to  detect  targets  on  a  clear  night.  The  structure  of 
these  records  is  identical  to  records  1-10. 

d.  The  third  section  contains  records  21-30.  These  records  describe 
Blue  and  Red  ability  to  detect  targets  on  an  obscure  day  (visibility  range 
500m).  The  structure  of  these  records  is  identical  to  records  1-iO. 


2-6.  FILE  iTRUCTURE  FOR  WEAPONS  CHARACTERISTICS. 


a.  The  Weapons  Characteristics  file  contains  data  describing  the 
physical  characteristics  of  25  Blue  systems  nna  25  Red  systems.  The  data  on 
each  weapon  system  are  used  by  the  DIAM  model  to  construct  firing  rates  for 
each  weapon.  The  file  also  contains  pointers  to  the  Movement  Rates  file  and 
Target  Acquisition  file  for  each  system,  allowing  DIAM  to  retrieve  the  proper 
movement  and  detection  rates  for  each  system. 

b.  The  file  is  structured  into  two  sections.  The  first  section  contains 
25  records  describing  Blue  weapon  characteristics.  The  second  section 
contains  25  records,  describing  25  Red  weapons.  The  records  have  the  following 
structure; 


Record 

Data 

Data 

Word 

Description 

1 

Alpha 

Six-character  weapon  name. 

2 

Integer 

The  type  of  primary  sensor  contained  on 
this  weapon:  l=eye,  2='optic,  3=thermal 
4-»image  intensifier. 

3 

Real 

Round  flight  time  of  primary  armament 
(seconds/200  meters). 

4 

Real 

Number  of  rounds  (bursts  for  burst  fire 
systems)  carried  by  this  weapon. 

5 

Integer 

Weapon  platform  movement  category: 
l»dismounted  personnel,  2=mortars, 
3®light  armor,  4=heavy  armor. 

6 

Real 

Weapon  firing  cycle  time.  This 
represents  the  average  time  to  aim, 
fire,  and  reload  the  weapon  (seconds). 
Munition  guidance  time  should  not  be 
included  in  this  value. 

The  Blue  weapons  described  in  this  file  must  be  in  the  same  order  as  their 
probability  of  kill  records  appear  on  the  Weapon  Vulnerability  file. 


CHAPTER  3 


DIAM  PROGRAM  CODE 


3-1.  INTRODUCTION. 

a.  This  chapter  contains  information  on  the  DIAM  program  code.  This 
introductory  paragraph  discusses  programming  philosophy,  concepts,  and 
techniques  used  in  constructing  the  code  for  DIAM.  The  second  paragraph 
describes  the  functional  areas  of  DIAM  and  presents  a  system  flowchart.  The 
third  paragraph  contains  figures  and  tables  that  briefly  explain  the 
subroutines  called  from  each  functional  area  and  the  primary  variables 
influenced  by  each  subroutine.  Paragraph  3-4  explains  the  self-documenting 
concept  used  in  DIAM  with  examples.  Paragraph  3-5  contains  the  DIAM  code  as  a 
subroutine  called  by  subroutine  INFANT  of  Jiffy. 

b.  The  following  guidelines  were  used  in  developing  the  DIAM  code  to 
allow  for  easier  understanding,  maintenance,  and  modification  of  the  DIAM 
model. 

(1)  First,  all  subroutines  are  nc  'onger  than  150  lines  and  are 
functional  in  application.  Efforts  were  mace  to  keep  the  length  around  50 
lines,  and  only  a  few  subprograms  are  over  80  lines.  The  biggest  exception  is 
the  main  DIAM  subroutine,  which  is  around  500  lines.  However,  this  main 
subroutine  consists  of  functional  areas  or  separate  procedures  of  less  than  50 
lines  each. 

(2)  Second,  the  DIW1  structure  is  basically  two-level.  Only  the  main 
DIAM  subroutine  passes  control  to  and  from  each  subroutine  in  a  top-down 
process.  (A  third  level  is  occasionally  used  when  subroutine  INIT  is  called 
to  initialize  an  array.)  This  design  allows  for  easier  understanding  of 
structure  flow  than  do  higher  level  structures. 

(3)  Third,  the  DIAM  structure  includes  IF/THEN/ELSE  statements,  no 
common  blocks,  and  self- documenting  code.  IF/THEN/ELSE  programming  avoids  "GO 
TO"  programming;  with  proper  indentation  this  makes  the  structure  flow  easier 
to  understand.  No  common  blocks  allows  better  control  of  debugging  and 
testing.  The  self-documenting  technique,  explained  in  paragraph  3-4,  was  used 
to  facilitate  understanding,  debugging,  and  future  modification  of  the  DIAM 
code.  With  this  technique,  each  subroutine  contains  all  infonnation  and  only 
that  information  needed  to  understand  the  function  of  the  subroutine. 

3-2.  DIAM  FUNCTIONAL  AREAS.  This  section  contains  a  brief  overview  of  the 
functional  areas  in  DIAM.  Figure  3-1  is  a  functional  flow  diagram  of  the 
model. 

a.  As  shown  in  the  figure,  the  low  resolution  data  are  loaded  first. 

Since  DIAM's  first  implementation  was  in  conjunction  with  the  Jiffy  Model,  the 
low  resolution  data  are  re:eived  from  Jiffy.  These  data  could  be  loaded  by 
subroutine  calls  from  the  Main  DIAM  subroutine  if  DIAM  were  used  with  other 
models  or  executed  indepeno«ntly.  The  low  resolution  data  include  Blue  and 
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Figure  3-1.  Flow  chart  of  DIAM  module. 


Red  weapon  systems  and  scenario  information.  Predetermined  artillery  losses 
from  Jiffy  are  also  included,  but  artillery  could  be  modeled  differently  in 
DIAM  for  different  applications. 

b.  After  a  gamer  selects  the  type  and  number  of  weapon  systems  and  a 
tactical  scenario  from  the  DIAM  library,  the  DIAM  model  selects  the 
appropriate  high  resolution  data  and  weapon  attributes. 

(1)  The  high  resolution  data  contain  terrain  information  for  both 
forces,  including  visibility  factors,  attacker  corridor  widths,  and 
disengagement  criteria.  This  information  is  contained  in  a  library  and  is 
accessed  by  the  type  of  tactical  scenario.  Currently,  the  library  contains 
terrain  data  for  only  a  few  terrain  types.  These  scenarios  require  minimal 
set-up  time  (approximately  2  days).  In  the  future  as  many  as  30  scenarios 
will  be  available  for  access. 

(2)  The  weapon  attributes  selected  are  from  a  data  base  developed  for 
all  possible  weapons  played  in  DIAM.  DIAM  allows  a  maximum  of  10  weapons  per 
side  in  a  run.  Weapon  attributes  include  probability  of  kill,  weapon 
characteristics,  movement  rates,  and  detection  times  for  all  Red  and  Blue 
weapon  types  selected  for  a  given  scenario. 

c.  The  next  two  functional  areas  are  initialization  procedures.  The 
first  procedure  initializes  variables,  arrays,  indexes,  and  counters.  The 
second  procedure  initializes  ammunition  loads,  artillery  losses  per  minute 
from  Jiffy,  and  distances  from  the  force  centroid  to  its  weapons  for  both  Red 
and  Blue  forces.  Defending  minefields  can  then  be  entered,  and  the  force 
visibility  tables  are  initialized.  Both  forces  are  entered  as  dismounted 
forces.  The  attacking  force  then  mounts  its  vehicles  after  the  number  of 
troops  to  mount  is  determined,  and  the  attrition  calculations  are  ready  to 
begin. 


d.  The  attrition  loop  starts  by  determining  the  distance  between  Red  and 
Blue  weapon  types  and  their  respective  range  bands.  The  range  bands  are  then 
used  to  determine  the  visibility  factors  and  the  probability  of  kill  between 
Red  and  Blue  weapon  types  during  the  current  minute. 

e.  Using  this  information,  the  next  procedure  calculates  rounds  fired  by 
each  Red  and  Blue  weapon  type.  The  results  are  calculated  by  a  sequence  of 
subroutines  that  first  determines  number  of  engageable  targets,  time  to  engage 
targets,  rounds  to  kill  targets,  and  time  to  kill  targets.  From  this 
information,  the  projected  rounds  required  to  kill  all  engageable  targets  for 
each  weapon  type  are  calculated.  These  rounds  are  limited  in  the  final 
subroutine  to  one-fourth  the  available  ammunition  to  determine  the  actual 
rounds  fired. 

f.  The  next  functional  area  calculates  total  Red  and  Blue  weapon  type 
losses  during  the  minute.  The  primary  attrition  loss  calculation  occurs  in 
the  first  two  subroutines  using  the  equations  developed  in  chapter  1  where 


initial  losses,  and  then  total  expected  losses,  are  calculated  for  all  weapon 
types.  Artillery  and  minefield  losses  are  then  determined  before  the  mounted 
infantry  personnel  losses  are  calculated.  Mounted  personnel  losses  are 
determined  from  the  losses  of  troop  carriers  and  proportioned  uniformly  across 
the  number  of  personnel  inside  the  troop  carriers.  The  Red  and  Blue  losses 
are  tallied,  and  the  remaining  Red  and  Blue  weapon  types  are  determined.  The 
last  subroutine  of  this  procedure  generates  a  killer/victim  scoreboard  for 
both  Red  and  Blue  weapon  types. 

g.  New  tactics  are  determined  in  the  next  procedure.  Currently,  DIAM 
plays  two  tactical  modes:  infantry  personnel  can  dismount  troop  carriers  at  a 
chosen  distance  from  the  opposing  force,  and  a  percentage  of  armor  vehicles 
can  go  into  overwatch,  also  at  a  chosen  distance.  After  new  tactics  are 
determined  a  killer/victim  report  is  generated  for  the  gamer  at  chosen  minute 
intervals.  The  gamer  then  has  the  option  of  continuing  the  engagement  or 
withdrawing  one  of  the  forces. 

h.  The  next  two  procedures  determine  if  Red  or  Blue  forces  disengage.  As 
mentioned  previously,  the  gamer  can  trigger  a  withdrawal.  If  not,  attrition 
losses  are  checked  every  minute,  and  a  force  will  disengage  at  a  chosen 
attrition  loss  level.  At  this  point,  the  gamer  can  again  override  the 
disengagement  and  continue  the  battle.  Hence,  in  DIAM  the  gamer  can  have 
complete  control  of  engaging  and  withdrawing  forces  or  allow  the  battle  to 
automatically  disengage  forces  at  chosen  attrition  levels. 

i.  New  positions  are  calculated  after  disengagentent  is  determined.  The 
attacker  moves  forward  if  engaging  or  pursuing  the  withdrawing  defender.  The 
defender  always  remains  stationary  unless  withdrawing. 

J.  One  of  the  last  procedures  calculates  fire  and  movement  suppression 
for  Red  and  Blue  forces.  This  procedure  is  processed  last  since  suppression 
is  calculated  as  losses  received  divided  by  losses  inflicted  for  each  weapon 
type.  During  the  first  minute  fire  suppression  is  assumed  to  be  50  percent. 
Currently,  suppression  in  DIAM  is  consistent  with  the  method  of  suppression 
play  in  Jiffy  where  firepower  ratios  are  used. 

k.  Finally,  the  last  procedure  determines  if  the  attrition  loop  continues 
or  ends.  Currently,  1000  minutes  is  the  limit  during  Red  and  Blue 
engagement.  When  either  force  is  withdrawing  the  battle  continues  10  minutes 
before  ending. 

3-3.  SUBROUTINE  SUMMARY.  Table  3-1  provides  a  cross-referenced  summary  of 
the  DIAM  subroutines  and  their  primary  variables.  Subroutines  called  by  each 
functional  area  are  shown,  and  the  function  of  each  subroutine  is  described. 
The  primary  variables  for  each  subroutine  are  listed  and  described. 

3-4.  DIAM  SELF-DOCUMENTATION  CONCEPT.  This  paragraph  explains  the 
self-documenting  technique  and  variable  name  convention  used  in  DIAM. 
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INITl  Initializes  any  10x2  array.  ARRAY  Array  to  be  initialized 

VAR  Value  initialized  for  array 


Table  3-1.  (continued) 
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a.  The  main  program  is  sectioned  into  functional  areas  or  procedures  and, 
with  comment  statements,  is  self-explanatory.  The  main  program's  primary 
function  is  to  call  subroutines.  Each  subroutine  begins  with  a  brief 
description  of  the  purpose.  When  a  subroutine  is  called  from  the  main 
program,  the  parameters  in  the  calling  statement  are  listed  so  that  returning 
variables  are  at  the  end  of  the  argument  list.  All  parameters  are  explained 
in  the  subroutine  called. 

b.  The  following  variable  name  convention  was  adopted  for  single  and  dual 
purpose  subroutines.  Single  purpose  subroutines  are  those  that  receive  only 
one  set  of  parameters  from  the  call  statements  of  the  main  program.  For 
single  purpose  subroutines,  the  parameters  match  the  calling  parameters  of  the 
main  program.  Dual  purpose  subroutines  are  those  that  receive  two  sets  of 
parameters  from  the  main  program.  In  the  first  case,  the  set  of  parameters 
will  be  Blue  force  variables  that  contain  Blue  force  information  in  relation 
to  Red.  In  the  second  case,  the  set  of  parameters  will  be  Red  force  variables 
that  contain  Red  force  information  in  relation  to  Blue.  To  represent  both 
cases  the  variable  name  convention  in  the  subroutines  results  in  "X"  force 
variables  that  contain  "X"  force  information  in  relation  to  "Y"  force 
information. 

c.  Figures  3-2  and  3-3  show  subroutines  INDX2  and  RNDKLL,  a  single 
purpose  subroutine  and  a  dual  purpose  subroutine,  respectively,  being  called 
from  the  main  program.  The  dual  purpose  subroutine  RNDKLL  is  called  twice, 
once  to  determine  Blue  rounds  to  kill  Red  targets  and  again  to  determine  Red 
rounds  to  kill  Blue  targets.  The  first  time  the  main  program  passes  Blue  and 
Red  arrays  to  interpret  "X"  force  for  Blue  force  and  "Y"  force  for  Red  force 
variables.  The  second  time  the  main  program  passes  Blue  and  Red  arrays  to 
interpret  "X"  force  for  Red  force  and  "Y"  force  for  Blue  force  variables. 

d.  A  knowledge  of  the  tactics  currently  played  in  DIAM  is  required  to 
understand  most  variable  names  and  array  variables.  All  weapons  played  in 
DIAM  are  categorized  in  one  of  four  groups:  dismounted  infantry,  mortars, 
light  armor,  and  heavy  armor.  Two  tactical  modes  are  played  by  the  weapons: 
mounted/dismounted  for  troops  and  carriers,  and  heavy  anmot  in  overwatch. 

Table  3-2  shows  the  tactical  modes  for  weapons  in  each  weapon  category. 


r)r>o«^r»-ior5rior»oooor>r5in  oooo  n  n  ^ 


INITIALIZE  ARRAYS  AND  VARIABLES 

DETERMINE  INDEXES  FOR  BLUE  AND  RED  FORCES 

CALL  INDXl (DFRC,BDFAT,RDFAT  tBF RCTP « BDHNA X ,R OHH AX  « 

1  BWORU  .RbDRW  ,BONVyROHVtBOVWTH,ROVUTH 1 

CALL  INOX2{KNTMNTtKbDHNT,FPFTH,BOSNG«ROSNG« AMFLD, 

1  EOF  AT  ,BFLSFR,RF  LSF  R,BHOLDS,  RHOLOS  J 

SUBROUTINE  INDX2  **t^>^*^***in^*****v*p:0*>K 


SUBPOUT  INE  INDX2(KNTMM  ,KU DMN T  ,FPFTH ,BDSN6  « RDS NG  «  AHFL  D  t 
1  BOFAT,BFLSFRtRFLSFR,bHOLDS(RHOLOS 1 

THIS  SUBROUTINE  INITIALIZES  THE  FOLLObING  VARIABLES  AnD 
INDEXES 

KktmnT  minute  COUNTER  FOR  OIAM  BATTLE 
KbOHM  MINUTE  COUNTER  DURING  HiTHDRAbAL  IN  DIAM 

FPFTM  MINUTE  COUNTER  FOR  FINAL  PROTECTIVE  FIRES 

BDSNG  INDEX  FOR  X  FORCE:  1=ENGAG1NG(  ? lOISENGAGlNG 

RDSNG  INDEX  FOR  Y  FORCE:  ):ENGAGING«  2:D1SENGA&IN6 

AMFLOni  INDEX  FOR  MINES  IN  USE:  0:N0 »  1:YES 

AMFLD  12  »  MINEFIELD  WIDTH 

AMFLD«3T  MINEFIELD  FRACTION  NOT  BYPASSED 

AmFLDIRI  FRACTION  OF  ATTACKING  FORCE  ENTERING  MiNEFIELD 
BFLSFP  FALSE  FIRING  FACTOR  FOR  BLUE  FORCE 

RFLSFR  FALSE  FIRING  FACTOR  FOR  RED  FORCE 

BOFAT  INDEX  FOR  BLUE  FORCE:  l^OEFENOING.  2:ATTACKING 

BHOLDS  INDEX  FOR  BLUE  FORCE:  ISBLUE  FORCE  HOLDS  POSITION, 

2TBLUE  IS  ALLOVEO  TO  WITHDRAW 
C  RHOLOS  INDEX  FOR  RED  FORCE:  1:RED  FORCE  HOLDS  POSITION, 

C  2=REO  IS  ALLOWED  TO  WITHDRAW 

DIMENSION  AMFLOT'O 
C  INI TIAL IZE  VARIABLES  : 

KNTHNT:! 

KWDMNT:n 

FPFTM:C 

80SNG=1 

RDSNG:l 

BHOLDS:: 

RHOLDS: < 

( 

DO  ID  l:  1  ,<4 
AHiFLDUI  :  C 
1C  CONTINUE 

C 

IF IBDFA I.EU. 1  ITHEN 
BFLSFR  :  0.8 
RFLSFR  :  O.R 
fcl  SE 

BFLSFR  :  D,*! 

RFLSFR  -  0.8 
I  '.D  IF 
C 

R I  TURN 
E(.0 

Figure  3-2.  Single  purpose  subroutine 


3-13 


C  CALCULATt  SOUNDS  fO  KJLL  RED  TARGET  TTPES 
C  FOR  BLUE  UEAPO!'^  IVPES 

CALL  RNDKlL  aBRDKLL  1 

C  . 

C  CALCULATE  ROUNDS  10  KILL  BLUE  TARGET  TYPES 

C  FOR  RED  WEAPON  IVPtS 

CALL  HNOHLl 1R0PKW , RROKLL  ) 


SUaROUlINE  RNDRLL  ♦♦♦♦«>♦*♦*♦♦*♦♦♦♦♦♦ 
C 

c 

r 

SUBROUT  INE  ftNOlU.i  IX  YPKW  aXRDKLLl 
C 

C  THIS  SUBROUriNE  CALCULATES  XROKLL  tl  (H  |J  I  »  ROUNDS  TO  KILL 

C  ■  FOR  X  rORCA*  REAPON  TYPE  1  IN  TACTICAL  MODE  J=l,2 

C  AGAINST  V  fCRCL  TARGET  TYPES  M  OF  WHICH  8  =  11,20 

C  ARE  IN  TACT. cal  HOOL  2 

C 

C  XYPKwn,MvJf  PROBABILITY  OF  KILL  ISSPKI  FOR  X  FORCE 
C  WEAPON  TYPES  I  IN  TACTICAL  MODE  J=l,2 

C  AGAINST  Y  FORCE  TARGET  TYPE  H,  OF 

C  latICH  M=li,2C  ARE  IN  TACTICAL  MODE  2 

C 

c 

OlHENSION  XYPRU  no,  20,2  )  ,  X  ROKLL  1 1C  ,20 ,2  1 
C 

c 

100  DO  10  J  =  1  ,2 
00  20 
00  50 

00  AC  H-1  vlb 

C 

PK:xVPf»Uli,«^>IL-l)^10,J) 
iriPK.GI.UJ  THEN 
RUKLL  n  yPH 
n  M 

RDKl L  -n 
E'Dif 

XRDKLl  n.K'J  <L-li'!'lO,JI  =  ROKLL 
C 

MO  CONTINUE 

30  CONTINUE 

20  CONTINUE 

10  CONTINUE 
C 

RETURN 

DEBUG  SUBCHR 
AT  lUO 
I  NL 

Figure  3~3.  Dual  purpose  subroutine 
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Table  3-2.  Tactical  modes  for  each  weapon  category 


Weapon  Category 
Dismounted  Infantry 
Light/Troop  Carriers 

Light/Non-Troop  Carriers 

Heavy 

Mortars 


Tactical  Mode  (1) 

Mounted  in  troop  carriers 
Troop  carriers  mounted 

(Engaging) 

Not  in  overwatch 
(Engaging) 


Tactical  Mode  (2) 

Not  in  troop  carriers 

Troop  carriers  dis¬ 
mounted 

-999  as  non-troop 
carrier  flag 

In  overwatch 

N/A 


3-5.  DIAM  CODE.  This  section  contains  the  DIAM  code  interfaced  with  Jiffy. 
Some  features  of  this  DIAM  version  are  unique  to  Jiffy.  For  example,  most  of 
the  low  resolution  data  or  gamer  input  for  DIAM  is  implemented  by  the 
subroutine  Jiffy  before  DIAM  is  called  by  INFANT.  Blue  and  Red  weapons  from 
the  Jiffy  element  array  are  chosen.  The  arrays  IBNFID  and  IRDFID  contain  the 
Jiffy  weapon  pointers,  a  mounted  or  dismounted  flag,  a  non-carrier  flag,  and  a 
secondary  weapon  flag  for  each  of  the  weapon  types  chosen.  Artillery  losses 
from  Jiffy  are  added  back  to  the  weapons  played  in  DIAM.  Then  DIAM 
reapportions  the  artillery  losses  each  minute  of  battle.  The  DIAM  code  as 
shown  has  been  tested  and  is  currently  being  used  to  support  war  game  studies 
with  good  results. 
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SIFIEO 


R1 


OIAHPUBLISH.OI AMHAIN 
UM>DW  e2-10:33<Qt) 


ICQ. 

lie. 

I2r. 

I'iC. 

1  >4  r, 
15C. 
}60. 

I  70, 

lef., 

i9r, 

zco. 

?1G« 

72 

230. 
2M0, 
250. 
260. 
?7Q. 
280. 
290. 
300. 
310. 
320. 
330, 
3<lQ« 
35C, 
36C. 
370, 
360. 
39  0, 
MOO. 
AlC. 
‘♦rc. 

«»3n. 
<•<10. 
<I$C. 
<46  r, 
<470, 
<4  80. 
49  0. 
SCO. 
51 !'. 
5tn. 
57^. 
S8C.. 
59  t  . 
fcCO. 
fcir. 
620. 
63C. 
640. 
65'  . 
66  0. 
67C. 
665. 
690. 
7C0. 

71  '  . 

72  C. 


iOBROUTINE  DIAHMAIN 


Q  41^*41  III  !(i  t)  at  41 SJ,  iji  * 

c 

c 

c 

SUBROUT  3NL  0  1AM  fRBKVLStBRK  VLS  ,SHOTSI ,  iRPTM  ,IBAT,K^b,Kl5,A2C, 
1  U27 ,I0BS«TRNTP,0rRC,AFRC,BWPN,HWPN,8ARTJF , 

1  RARI jF tARPAH,BNUH.RNUH,IBU«IRU,ieNF7Ui 

1  IRMFlOslUfOSTBR  1 

C 
C 

COMMON/  KCL  0/  A  V 1  j  X  I  NX  <  4  I  ,  I CA  fiO  ( 201 , 1 H7  ,  IHN  ,I  H  Bi  IH  V  ES  ,  I HNO 
C 

c 

dimension  BWPNU0,3  ) ,  KWPN«  10,  31  ,D6MAT1 14,2  >  ,8  ART  JF  ( 10 , 4) 

1  ,HART  JF  M  0  t ,  A«PAM«  8  1,AMFLD<41  , AMLSR  14  » ,  A«DTH  14 ,5  ) 

2  .BWOTHJ  ti  ,51  tRWDTHe  4  ,b),SHOTSH  10,21  ,PREP«  2  I  ,  1  BUIl  C  I 

3 , IflOl 10 1 «BAHO< 1 0,2  I ,hAHOI 10,2 1 , I8NF ID  1 2 5, 4 1 , 1  RNF I D ♦ 25 , 4  » 

C 

2  ,PCRyBE  <<1  ,4 ,5! ,  PCRUBh  4  4,4, 51,PCRWV8I4 ,4  ,‘.l  ,PCBWRE44  ,4  ,5  ) 

3  ,PCBVRi!  «'i  ,‘i  ,5 1 ,  pcewypm  ,4, 51, of  cue  14,21 
c 

4  ,fiRPK (I  0,10,5 ),nBPU  J 10, 10, 5 1 ,BCHR 1 1 0, 51 ,RCHR4 10,51 

5  ,BHVR  r4  4  V? I ,fiMVRT  4  4 ,2l4B0TCT|4,4,5l ,RDTCI|4,4 ,51 ,TACA  42 ,3 J 
C 

6  ,B0EA0  4  10 ,2  1  3R0r:A0  4  1  G ,2  I  ,B  SPF 06  1 10, 21  ,RSPF0GI10,2  1 

7  ,BSPM05  4  ir  s2  1 ,  R  SPM06  4  10 , 2 1  , BMNL  SS  4  ID ,  2  I  ,RHNLSS  110,21 

8  ,eRDSOMnO  ,21  ,«R0SUM410,21 

c 

9  tOBFBWP  i  '0  ,21  ,0RrRUP4  10 , 2 1  ,  PCfiy  RC  4  4 , 4 , 5  I  ,PCRV  BC4 4 , 4  ,5  1 
C 

1  ,OBWRWP  <1C  ,2iJt2  ),BRR6B04  10 , 20 , 2  I ,  RBRGflO  4 10 , 20 , 2  I 

2  ,PCB\I  K2  « 1C  ,20,2  lsPCRv62  4  10,  20,2  I  ,PRPHu4  10,20,2  1 

3  ,RBPHi/S  lO  ,20  J'fiUBUPl  10,20,21 
C 

4 ,10TR  fG  4 1C .2  1 , 7  0T87  G4  10,21 

5 , BTMLWO  n  r ,2  0,2 1,RTMEN6« 10,20,2  I ,BROK cL 4 10 , 20 , 2 1 

6 . RROKLL 110 ,2C,2 l,eTMKLt4 10 , 20 , 2  I , RTMK LL 4 10 , 20 , 2 1 

7  ,BRDfR4 10,20,2) ,RR0FR410,20,2l 
C 

8  .EOCLSS  nc  ,2  0,2  l.ERCLSSI  10,  20 , 2  I ,  ER  TL  SS  4 10 , 2  1 ,  EBTLS  5  4  10,21 

9  ,BWPHVR  (H  ,2  1  ,R  UPMUR  4  10 , 21  ,  BAR  US  4 10,  2  1 ,  R  AR  TL  S  1 10 , 2  I 

1  ,FAR1SP  UU,2  !  ,R  ARTSPf  10,21  ,8RHVLS412, 13  1  ,RBKVL  S4 12 , 13  I 
C 
C 

c 

C 
f 
C 
1 
C 

c 
c 
c 
c 
c 


LOAD  lOw  RESOLUTION  OflU 

INITIAL  17!  THE  REST  OF  LOU  RESOLUTION  DATA 
call  LRj  nbFRCTP,RrRCTP,DPSTR  .TACAI 


LOAD  HIGH  RESOLUTION  DATA 

LOAD  PERCENT  VISIBLE  TABLES,  DISTANCES,  AND  CORRIDOR  WIDTHS 
CALL  t£  R IN  SIC  AT ,K 2  b ,PCR48E,PC RVBW ,PCRWVB ,PCBVRE ,PCaVRW , 

1  PCeuVii  ,UFCyC,AWOTH,BWOTH,Kw01H,OGMATTI 


C 

c 
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SIFIED 


m . 


i 


730. 

7u  r. 

75'. 

77r.. 
70  r. 
79  0. 
.50  C. 

eic. 

82 

830. 
S*t  I  . 

051  . 
86  '  ♦ 
P7'  . 
86  I  . 
89  , 
9:c. 
910. 
92  0. 
9  3". 
99  r . 

9?  r.. 

Vff  . 
97  -  . 
98C. 
99  r . 
1  lOQ. 

1  no. 
1G2C. 
1 1 1  i « 
1120. 
1  1  '0. 
118". 
115  . 

ntc. 

1 1 7 ; , 
1160. 
1  1  •  C. 
12  .0. 
1210. 
1  22  . 
1  2  3  (. . 
1280. 
1250. 
1  2f  . 
127-  . 
1280, 
1  2  VC. 
1  iCO. 
1  51  ' . 
1  32!.. 

1  :;c. 

138  , 
1  350. 
1  3t  [  . 
1  8:’D. 
1  8I  . 
182  '  . 
1  83P. 
1  88t. 


C 

C  LOAD  WEAPON  ATTRieuTES 
C 

C  LOAD  PROBABILITY  OF  KILL  AND  WEAPON  CHARACTERISTICS  TABLES 

NUMB  ;  BNUM 
NUMR  :  RNUH 

CALL  PKIN(BRPK|RBPK .BCHR ,RCHR , 1 BU ,1 RD |K 1 5 • K 1 6 |NUH P, NUHR , 
1  lUl 
C 

C  LOAD  BLUE  AND  RED  MOVEMENT  RATES  AND  DETECTION  DATA 

ITRnTP  :  TRNTP 

CALL  MOV  IN  IIO'-S  ilTRNTP.K  27,K20,BMVR  l.RMWRTf  BDTCT  ,RDTCT  I 
C 
C 
c 

C  INITIALIZE  ARRAYS  AND  VARIABLES 
C 

C  DEIERHINE  INDEXES  FOR  BLUE  AND  RED  FORCES 

CALL  INDXHOFRC.BOFAT  ,  KOFAT  ,  BE  RC  IP ,  BOMM  AX  ,R  OHM  AX  , 

1  6W0RW .RUORW ,B0 MV , RD MV . B OV W IH , RO Vb TH I 

CALL  INDX2 (KN TMNT .KWDMNT ,FPF1 M , BDSN & ,R OS NG , AMFL D , 

1  BOFAT  ,BFLSFK,HFLSFR,BHOLOS,PHOLDS  » 
t 

V  AR :G.0 

C  2ER0-0UT  CUMULATIVE  KILLS  FOR  BLUE  WEAPON  TYPES 

CALL  INI T1 (BDEAO.VARl 
C 

C  /ERO-OLT  CUMULATIVE  KILLS  FOR  RED  WEAPON  TYPES 

CALL  INITHRDEAO,  VAR) 

I 

C  /ERO-OUT  BLUE  ART  1 LLE R V  L OS SE S 

CALL  IMll  IBARTLS  ,VAR1 

( 

C  2ERO“OUT  RED  ARTILLERY  LOSSES 

CALL  INITHRARTLS  ,VAR) 

C 

C  ;ER0-0UT  BLUE  HOUNDS  FIRED  SUMMATION 

CALL  INI T1 «BROSUM,WARl 
C 

C  /ERO-ODI  RED  HOUNDS  FIREU  SUMMATION 

CALL  TNITHRRDSUM.VAR) 

C 

VAR  r  O.b 

C  ZERO-Ol'T  BLUE  SUPPRESSION  FIRt  DEGRADATION 

CALL  INITI  iBSFFOG.VAR) 

C 

C  2ER0-0UT  RED  SUPPRESSION  FIRE  DEGRADATION 

CALL  INlIl  IRSPFD6  ,VARI 
C 

V  AR  :r.O 

C  2ER0-0UT  BLUE  SUPPRESSION  MOVEMENT  DEGRADATION 

CALL  INITI TBSPMDG.VARI 
C 

C  ^ERO-OUT  RED  SUPPRESSION  MOVEMENT  DEGRADATION 

CALL  INI  inRSPHOG.WARl 
C 

c 

c 

C  INITIALIZE  ATTRITION  LOOP 
C 

C  INITIALIZE  AMMUNITION  LOADS  FOR  BLUE  WEAPONS 


S  I  F  1 E  ( 
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SIFIED 


1150. 

iieo. 
1170. 
1190. 
1500. 
1510. 
1530. 
1510. 
1550. 
1560. 
1570. 
158  0. 
1590. 
1600. 
1610. 
1 62  r  . 

16  30. 
1610. 
1650. 
1660. 
167). 
1680. 
1690. 
1700. 
1710. 
1  720. 
1  73C. 
171'. 
1  750. 
1  760. 
1  770. 
17€r. 
179  0. 
1  800. 
1810. 
1  82  0. 
1  83  0. 
181C, 
185  0, 
189  0, 
1900, 
1910, 
1  92  0, 
193  0, 
1910, 
1  950, 
1960. 
I97r. 

1  980. 
199  r, 

2  000. 
2  010. 
2C20. 
2  030. 
20<<C. 
2050. 
2060. 
2070. 
2080. 
2090. 
2100. 


BSion.c 

BStOR:i.O 

CALL  BSETLOIBNUHt jeU,BSLO,BSL0R|BCHRtIBNF10,eANOl 

INITIALIZE  AHMUNITION  LOADS  FOR  RED  WEAPONS 

CALL  RSETLOIRNUH.lRD.BSLOtBSLOR.RCHRtlRNFIDtRAHO) 

INITIALIZE  ARTILLERY  LOSSES  FROM  JIFFY 
CALL  1NTART(ARPAH,6ARTJF  tRARUF  I 

INITIALIZE  DISTANCE  FROM  BLUE  FORCE  CENTROID 
TO  BLUE  WEAPON  TYPES 
IFRC=1 

CALL  1NT0ST(IFRC,BCHR,BUPN|DFCWC|0BFBWPI 

INITIALIZE  DISTANCE  FROM  RED  FORCE  CENTROID 
TO  RED  WEAPON  TYPES 
1FPC:2 

CALL  lNTOSTUFRC}RCHR,RWPN,OFCWCtDRFRWPl 

DETERMINE  MINEFIELD  CHARACTERISTICS 

CALL  MINCHR tA  MFLD  ,FHNFLO  tBMNFLD iDFC  WC .OFRC, AHLSR I 

DETERMINE  THE  VISIBLITV  TABLES  TO  USE  IN  LOOP 

CALL  PCTBLIBWORW,RHORW|DFRCtPCRWBE|PCRUBH»PCRWVBt 
1  PCBVRE ,PCBVRWiPC8WVR,PCRVBC|PCBVRC) 

DETERMINE  NUMBER  OF  TROOPS  TO  MOUNT  FOR  ATTACKING  FORCC 
IFIBOFAT.EQ.Z  .AND.  B0HV.EQ.2)  THEN 
CALL  OHRTOfBCHRtBWPNtBOHRTO  I 

CALL  REHNT<BCHR,BHPNtB0HMA)l|B0MV(6DMRT0tBNUHDM« 

1  DBFBWPl 

ELSE  IFIROFAT.EQ.Z  .AND*  RDMY.C0.21  THEN 
CALL  DMRTO<RCHRtRWPN,ROMRTOI 

CALL  RCMNTlRCHR,RWPN,ROHMAX,RDMV.RDMRTOtRNUNDM, 

I  ORFRWP) 

ELSE 
END  IF 


BEGIN  ATTRITION  LOOP 


C 

10 

c 

c 

c 

c 

c 


DETERMINE  DISTANCE  FROM  BLUE  WEAPON  TYPES 
10  RED  WEAPON  TYPES 

CALL  WPNOST  IDBFBWP,DRFKWP,DSTBR  ,B  WPN  ,  RWPN  ,DBWRWP  ,  DS  1 HIN ) 

DLTERHINE  RANGE  BANOS  FOR  BLUE  WEAPON  TYPES 
TO  RED  WEAPON  TYPES 
CALL  RNGBN0I0BWRWP,6RR6BU I 

0E1ERKINE  distance  AND  RANGE  BANDS  FOR  RED  WEAPON 
TYPES  TO  BLUE  WEAPON  TYPES 
CALL  RNGOST(BRRCBO,nBRGBO,OBWRWP,ORiiBUPI 

DETERMINE  FRACTION  OF  BLUE  WEAPON  TYPES  VISIBLE 
TO  PED  WEAPON  TYPES 

CALL  PCWPVS iBCHR,RCHR,PCBVRC,BRKGBO,PCBVRZl 

0E1ERH1NE  FRACTION  OF  RED  WEAPON  TYPES  VISIBLE 
TO  BLUE  WEAPON  TYPES 


;7FTFn 
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CALL  PCWP\lS(RCHH|BCHR,PCRVBC(HdKGBD  (PCRVaZ! 


211  C. 
2120. 
213'  , 
214'i. 
215G* 
21f0. 
217'. 
218r;, 
2190* 
223C. 
229(’. 
22i  . 
226'. 
227£7. 
228  . 
229U. 
23'  C. 
231C. 
2  ’2C. 
2  33'  . 
2  3<*  . 
2  3sr'. 
2  36C. 
2  3'»C. 
23?  . 
239C. 
2Arc. 
291C. 

2  **4  f . 

2M3  . 
2‘iHC. 
29‘ 
29(C. 
2‘i7C. 
2*ie  . 
299  . 
25-  C. 
2‘1  •. 
2b2  '  . 
2S3C. 
2‘9 
2  '..5  ■  . 
2  56  . 
2  57C. 
2  5f 
259C. 
2f  C, 
2610. 
262  :  . 
2t3C. 
269  . 
2t5C. 

2t6". 

2  6  7C. 
2  69  . 

2  n  u. 

2  71C. 
2  '!2  - . 
2  731  . 
2  75:. 
2  76  0. 

Slf  16  0 


D67ERMINE  SINGLE  SHOT  PROBABILITY  OF  KILL 
FOR  BLUE  WEAPONS  AGAINST  RED  TARGETS 
CALL  PKWPtBRPK.BRRGBO .BRPKU) 

UEICRMINE  SINGLE  SHOT  PROBABILITY  OF  KILL 
FOR  RED  WEAPONS  AGAINST  BLUE  TARGETS 
CALL  PKkPtRBPK,RBRGBO(RBPKW) 


CALCULATION  OF  ROUNDS  FIRED  BY  WEAPON  TYPE 

calculate  total  NUHBLR  of  ENGAGABLE  RLO  TARGET  TYPES 
for  BLUE  WfAPON  TYPES 
CALL  INI  11  nOTRTG,YARI 

CALL  NUKTGT IBRPKU ,RWPN  «PC RV6 2 .R SPFOG i T07R TG  ) 

CALCULATE  TOTAL  NUHBER  OF  ENGAGABLE  BLUE  TARGET  TYPES 
FOR  RED  WEAPON  TYPES 
call  IN]  T1  nOTBTGtYARI 

CALL  NUHTGTfRBPKW  «bUPN,PCBVR2 .B SPFDb i TOT BTG  > 

CALCULATE  TIHE  TO  ENGAGE  ALL  RED  TARGET  TYPES 
FOR  BLUE  WEAPON  TYPES 

CALL  TIHENGI BOVWTH.eRPNW  tBRRGBD,BCHR,PCHR  tBDFAT i 
1  BOTCT  .BTNENGt 

CALCULATE  TlHE  TO  ENGAGE  ALL  BLUE  TARGET  TYPES 
FOR  RED  WEAPON  TYPES 

CALL  T1PENC«RQVWTH,RBPKU  ,RBRC6DtRCHR(BCHR  .RDF AT  , 

1  ROICT  ,RTPENC1 

CALCULATE  ROUNDS  TO  KILL  RL D  TARGET  TYPES 
FOR  BLUE  WEAPON  TYPES 
CALI  f.'NDKLL(bRPKWteROKLL  1 

CALCULATE  ROUNDS  TO  KILL  BLUE  TARGET  TYPES 
FOR  RED  WEAPON  TYPES 
CALL  RNONLL (RBPKUtRRDNLL  I 

CALCULA1L  TIHE  TO  KILL  RED  TARGET  TYPES 
FOR  BLUE  WEAPON  TYPES 

CALL  TMKLL  IB T NENC tbCH R ,B ROKLL ,BRR6Bu i BTHKLL  ) 

CALCULATE  TIHE  10  KILL  BLUE  TARGET  TYPES 
FOR  REU  WEAPON  TYPES 

call  THKLL IRTHCNG  «PCHR(RR0KLL iRBRGBDiRTNKLL  I 

CALCULATE  PROJECTED  ROUNDS  TO  FIRE  BY  BLUE  WEAPONS 
A6A1MS7  RED  TARGET  TYPES 

CALL  RNOFROfB  THMLL>TOTRTG,BWPN,RUPN,PCBVR2tPCRVB2  « 

1  B0FA1  .BWCRU  ,B RO KLL 1 8 SPF DC .R SPFOG, bRDFR 1 

CALCULATE  PROJECTED  ROUNUS  TO  FIRE  BY  RED  WEAPONS 
AGAINS!  BLUE  TARGET  TYPES 

CALL  (<NDFRDtRlHKLLtT0TBTGtRWPN,BWPN,PCRV&2«PC6VR2  • 

1  ROFAT ,RwORW  iRRO KLL t RSPF OG |B SPFDG * HROFR I 

CALCULATE  ACTUAL  ROUNDS  FIRED  BY  BLUE  WEAPONS 
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CALL  (iNDCK  IB hPN,B  CHRt  RCH R  fBNUH »RNUH  ,8R0F K  «b  AHO  tB(<  OS  t.'H  ) 


2  77n« 
2  81 
2  82  r. 

2830. 
r-89n. 
29(  0. 
2  91C. 
2  92  C. 
2  93'\ 
299P. 
2  95C. 
2  960. 
2970. 
2  98C. 

2  ‘.9  0. 

3roo. 

3i"10. 

3  '2  0 . 
3  030. 
3090, 
3cro. 
3  '-'6  0. 
3G7G. 
30FC. 
3  '9  0. 

31  GO, 
3ilC. 
312  ■. 
313i  . 
3190. 
315C. 
3U  . 
317'  . 
318C. 
3190, 
3200, 

321  '  . 

322  C. 
3230. 
3290. 
325  1  , 
3260. 
327(1. 

32  80. 
3290. 
3300. 
33P  . 
3  32(  . 
333D. 
3390. 
3  3*.  0. 
3360. 
3 ’’.7;'. 

33  3G. 
739  '. 
3900. 
39:c, 
392  . 
393". 

3  9ii  0. 
3  980. 


C 

C  CALCULATE  ACTUAL  ROUNDS  FIRED  BT  RED  kiEAPONS 

CALL  RNDCKIRUPNtRCHR,BCHR,RNUH«BNUM,RRDrR  ,RAHO  .RKOSUMI 
C 
C 
C 

C  CALCULATION  OF  TOTAL  LOSSES 
C 

C  CALCULATE  EXPECTED  BLUE  COMHITTEE  LOSSES 

CALL  ECLOSSIRRPKW.BUPN  .PCBVR2 « RRDFR .RFL SFR , B SPF DO  ,E E CL SS 1 

C 

C  CALCULATE  EXPECTED  RED  COHHITTEE  LOSSlS 

CALL  ECL0SSIPRPKU,RWPNtPCRUB2  ,bRDFR (BFLSFR tRSPFOO  ,ERCLSS 1 
C 

C  CALCULATE  TOTAL  EXPECTED  DIRECT  FIRE  BLUL  LOSSLS 
CALL  ETLOSSIBWPN.EBCLSStEBTLSSI 

r 

C  CALCULATE  TOTAL  EXPECTED  DIRECT  FIRE  RED  LOSSES 

CALL  ETLOSS<RbPN(ERCLSS«ERTLSS) 

r 

C  CALCULATE  BLUE  ARTILLER1  LOSSES 

CALL  ARTLSS  UNTHNltARPAHiBARUF  ,6UPN,6CHR  ,BARTLS  I 
C 

C  CALCULATE  RED  ARTiLLERT  LOSSES 

CALL  ARTLSS IK  NIHNT  « ARPAH |RAR1 JF |RUPN,RCHH  tRARTLS  i 
C 

C  CALCULATE  ATTACKER  HIRE  LOSSES 

IFIBOFAT.EQ.P  1  THEN 

CALL  NNLSST  AHFL0tAHLSRtAW01H,DSTBR«FHNFLD|BHNFLD, 

1  BCHR  tBhPNiObFBLPtBMNLSS  I 

ELSE 

CALL  HNLSS  IAHFLO,AHLSR  tAROTH,DSTBR«FNNFLOt  BHNFLOi 
1  RCHR  ,RWPN,ORFRbP«RHNLSS  I 

END  IF 
C 

C  CALCULATE  HOUNTED  INFANTRY  LOSSES 

lFIBDHV.EO.il  THEN 

CALL  OSHLSS  iBNUHOHfBwPN  ibCHR  lEBTL SS  T 
CALL  OSHLSS  ieNUHDM,8klPN  ,BCHR|BARTLS  ) 

CALL  OSHLSS  (BNUHOM,BOPN  tBCHR  ,BNNLSS  I 
END  IF 

lFIRDHV.EO.il  THEN 

CALL  OSHLS  S  IRNUHDMtRyPN  ,RCHR,ERTLSS  I 
CALL  OSHLSS  IRNUHOH«RyPN ,RCHR«RARlLS I 
CALL  OSHLSS IRNUHDHtRwPN  ,RCHR|RHNL SS I 
END  IF 

C  CUMULATE  TOTAL  LOSSES  FOR  BLUE  WEAPON  TYPES 

CALL  TALLY  IB UPN,E8 1LSS ,B ARIL S tbHNLS S iBOE AO  I 
C 

C  CUMULATE  TOTAL  LOSSES  FOR  RED  WEAPON  TYPES 

CALL  TALLY(RWPN,eRTLSS(RARTLS«RHNLSS|ROEAD) 

C 

C  CALCULATE  BLUE  TO  RED  KILLER  VICTIM  SCOREBOARD 

CALL  JFL  SS  IRC  HR,RWPN,ERCLSS  ARTLSS  tRARTLS  tRHNLSS  .PRKVLS  I 
C 

C  CALCULATE  RED  TO  BLUE  KILLER  VICTIM  ScOREBOARD 

CALL  JFL  SSIBCHR,BUPN,EbCLSS tEBTLSStBARTLS  tBHNLSS ,PbHVLS ) 


SIFIEU 


C 

c 
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3*»9G. 

35QC. 

351C. 

352 

353C. 

35«*G. 

355r. 

356". 

357  . 

3  58':, 

3590. 

3t00. 

361  I  . 

362  . 
3f}  . 
36(«  . 
3650. 
3  66  0. 
367'  , 
366  . 
36'-  . 
37r’0. 
371C. 
3  720. 
3  73  . 
3  7M  , 
3  75  , 
3ipr, 
3  79  , 
380C. 
3610. 
3  02  C' . 
363'-. 
3  69  . 
3  86  • , 
3  57'. 
3ce  . 
38  9 
39^0, 
391-  . 
3  92  '  . 
393'  , 
399C. 

395  . 

396  . 

397  . 
3980. 
3990. 
*6  ICO. 
Mr  1C, 
‘6020, 
<1130. 
9  <iO, 
M  H5, 
<»  50. 
•6060. 
uC7C, 
•6  '-60, 
•609  , 
•6IC0, 
‘tir. 


c 

c  determine  new  tactics 
c 

C  DETERMINE  NEW  TACTICAL  MODE  FOR  BLUE  FORCE 

IFIBOFA  >.£0.2  .AND.  BWDRW.EO.II  THEN 
I FIbDHV.EQ.  1  i  THEN 

Call  TACOSHtBCMUtBCHK,RCHR,BWPN iDBFB.Pt 
1  OewfiUPJACAl 

END  IF 

IF (BOVWTH.EO.l  I  THEN 

CALL  TAC0W8 (B OUWTH *0 CHR  , KCHP ,BWHN  ,OBFBwF  , 

I  L'BWRWP  iTACA  } 

END  IF 
END  IF 
C 

C  DETERMINE  NEW  TACTICAL  MODE  FOR  RED  FORCE 

IFIROFAl .EC.2  .AND.  RUDRh.EO.II  THEN 
IFIKDMV.E0.1I  THEN 

CALL  TACDSM  tRDMV,RCHK,bCHF<  tRUPN  iDRFRWPi 
1  ORwewPtTACAl 

E^0  IF 

IFIROVUTH.Eu.ll  THEN 

CALL  TACOVW ( R OV wTH ,RCHR ,BCH R tRWPN « DRF RUP  • 

1  DRWeUP.TACAl 

END  IF 
E  .0  IF 
C 
t 

C  DISPLAT  REPORT  FOR  GAMERS 

IF  6  l(KN1HNT7IRPTMt<-IRPTM«HNTHNT  l.EO.O  I  THEN 

CALL  PEPRT  (KNTMNTtRB»(VLSfBRKVLStBNUH,RNUM,BOEAD« 

1  RDEAO|BUPN,RWPK,BOSNG,ROSNG,BWORU  fRRDKii  .BRDSUH, 

2  RROSUM.OSTMINI 

r 

E’<D  IF 
C 
C 
C 

C  0E!ER*‘1NE  IF  l'LUE  FORCE  DISENGAGES 
C 

C  CHECW  FOR  BLl’E  DISENGAGEMENT 

IF  (ByUR*  «EC.l  .AND.  RWORW.EO.l)  THEN 
1 FRC:3 

CALL  DSNCIBH0L0S|60SNG,BWPN,bCHR,b0EAD,lFRC|0&MATT  .BkDRWI 
C 

C  WHEN  BLUE  WITHDRAWS.  THEN  INITIALIZE  NEW  VISIblLlTt 

C  TABLES,  REMOUNT  FORCE,  AND  RELEASE  OVERWATCN  STATUS 

lF(eUDRU«EQ.2l  THEN 

PRINT  «,*8LUE  TO  WITHDRAW  AT  *,KNTHNT,  *  MINUTES* 
PRINT  ‘MINIMUM  DISTANCE  TO  RED  FORCE  IS  ‘.USTNIN 
PRINT  ♦,*00  TOU  WISH  TO  WITHDRAW  BLUE  FORCES? * 

CALL  REEOAIIANSl 
IF  (IANS  .EO.IHTI  THEN 
NWOMNT  :  KNTMNT 

call  PCTBL (BUDRW ,RWDRW,UFRC  tPCRVOEiPCRVoW  ,PCRWVB, 

1  PCB  VRE ,PCBVKW,FCBWVR,PCRV6C,PCaVRC  I 

IF  (BOMV  .EO.:i  THEN 

CALL  DMRTOIBCHR.BWPN.bDHRlO  ) 

CALL  REMNTIBCHR,bWPN,BOMHA:(,bDMV,bUHRTO  ,bNUHUM, 

1  O&FbUPI 

END  IF 


SIF  lED 
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SIFIED 


<I12C. 

Misr, 
<(  16(  . 
m70. 


IF  IBOVWIH  .Ell.  2  )  THEN 
bOVUTh  =  i 
END  IF 
ELSE 

BHOLD?  :  I 
BhDRb  :  1 


•iiec. 

m?o. 

ii2ro. 

421  r. 

422  U  C 
423^.  C 
424'.  C 
4  26'.  C 
427'.  C 
428:.  C 
4  2Sr. 

4  30C. 
431C. 

4  32('.  C 
4  35C.  C 
4340.  C 
4  350. 

4  36r. 

4  37r. 

4  3f  '  . 
4340. 
44G0. 
4415. 
44ir, 
4420. 
4430. 
4441'. 
445r. 
446C. 
4470. 
4480. 

444  ". 

4  SCO. 

4  51  i. 

4  52  . 
4530. 

4  540. 

4  55'^. 

4  56'. 
457'. 
45Ef.  C 
462r.  C 
463C.  C 
4640.  C 
4  65'.  C 
466C.  C 
4670. 
4680. 
46S:,  C 
4  7iC.  C 
471C.  C 
4  72C. 

4  73'-.  C 
4  74  ' .  C 
4750. 


BOSNO  :  1 
END  IF 
END  IF 
END  IF 


DETERM*1NE  IF  RED  FORCE  DISENGAGES 

CHECK  F0(  RED  0 ISENG AGEHEN 1 

IFIBUORW.eO.l  .AND.  RMDRU.EQ.l)  THEN 
1  FRC:? 

CALL  DSNG(RH0L0S,K0SNG«RWPNtRCHR(RDEA0(IFfiC|D6HAT  T  ,RkDRW| 

WHEN  RED  WITHDRAWS,  THEN  INITIALISE  NEh  VlSIblLITV 
TABLES,  REHOUnT  FORCE,  AND  RELEASE  OVERWATCH  STATUS 
IFIRW0RW.EQ.21  THEN 

PRINT  *,«  RED  TO  WITHDRAW  AT  *,KNTKNT,'  MINUTES' 

PRINT  *  ,*  HINIHUM  DISTANCE  TO  BLUE  FORCE  IS  '.DSTHIN 
PRINT  «,«  DO  TOU  WISH  TO  WITHDRAW  RED  FORCEST' 

CALL  REEOAtlANSI 
IF  UANS  .EQ.THVi  THEN 
NWDHNT  :  KNTHNT 

CALL  PCTBLTGWORW ,RW0RW,DFRC ,PCRVBE ,PCRv BW  ,PCRUVR, 

1  PCB  VRe,PC&VRW,PCBWVR,PCRVdC,PCBVRC  t 

1F(R0HV.E0.:I  THEN 

CALL  UHRTOtRCHR,RWPN,ROHRlO) 

CALL  REHNTf  RCHR,RWPN,ROHHA)i  ,RDHV,KDHR10  ,RNUMDH, 

1  OFFRWPl 

END  IF 

IF  IROVWTH  .L0.2I  THEN 
ROVLTH  :  I 
END  IF 
ELSE 

RHOLD:  :  f 
RWDRW  :  1 
RDSNC  :  ] 

EfD  IF 
E.uD  IF 
END  IF 


DETERMINE  MOVEMENT  KATES  AND  NEH  POSITIONS 

determine  movement  RATES  FOR  EACH  BLUl  WEAPON  TYPE 
CALL  HVRTfBOVWTH,eDFAT,BWDKW,TRNTP,bCHR,BWPN, 

1  BHVRT  iBWPNVRl 

calculate  new  OISIANCC  FROM  BLUE  FORCE  CENTROID 

.0  blue  weapon  types 

CALL  NDIST  <DSTbK,EWHN,BCHR,BWPMVR,BSPHDG,DbF  BWP ) 

DETERMINE  MOVEMENT  RATES  FOR  EACH  RED  WEAPON  1 YPt 
CALL  MVRTtROVWTH, PDF  AT, RWDRW, TRNTP , RCHR ,R WPn  , 
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SIFIED 


SIFIEC 


‘♦HC.  1  RMVRT  ,RWPMVH) 

<*77'.  r 

‘<76  \  C  CALCULATE  NEW  DISlANCt  FROM  HEU  FORCE  CENTROID 

‘<79L',  C  !0  red  uEAPON  TYPES 

CALL  NCIST<DSTBRtRkPN«PCHR,k'WPMVR«RSPMOGfORFRWP) 

*t«3=,  C 
USti  ,  C 
f. 

‘•et  .  C  CALCULATION  OF  FIRE  AND  MOVEMENT  SUPPRESSION 
*«67r,  C 

veef  .  C  CALCULATE  BLUE  ARTILLERY  LOSSES  FOR  SUPPRESSION 

«a9C.  CALL  AR !SP(KNTMNT (FPFTH,DBbRkP,BARTjF ,ARPAH,BWPN, 

<490C.  1  eCHR,BUFAT,BARTSn 

V91  r 

‘»S2  ,  C  CALCULATE  RED  ARTILLERY  LOSSES  FOR  SUPPRESSION 

<<93'.  CALL  AKTSP  (KNTMNT  «FPFTH,DRWBWPtRARTJF  ,ARPAH,HWPN, 

VS'lC.  1  PCHR  ,RDFAT,RARTSP» 

<4  95%  C 

**9t'.  C  CALCULATE  BLUE  FIRE  AND  MOVEMENT  SUPPkESSION  DEGRADATION 

<(97-'.  CALL  SPOb(&WORW|RWDRU«BDFATiBCHR«EBCLSSfERCLSSt 

«96r.  1  BAR  TSP  |6MNLSS,BSPF0GtBSPHDG  ) 

MSSC.  C 

S"GC.  C  CALCULATE  RED  FIRl  AND  MOVEMENT  SUPPRESSION  DEGRADATION 

SIC.  CALL  SPDC(bWORW.RWORU,RDF AT.RCHPfERCLSSiEBCLSS t 

SCi?C.  1  RAR  TSP  ,RMNLSS,RSPFOG|RSPHOG  ) 

irtc.  C 
5  7f',  C 
S-6D,  C 

5f9C,  C  CHECK  FOR  END  OF  MODULE  RUN 
S3  G.  C 

Snr.  H(RWDRh.E0«2  .OR*  RkORM,EO.:i  THEN 

S12C.  inKWOHNT.LT.NWUMNI  .AND*  K  WDMNT  .LT  .  ID  )  THEN 

S13  .  KWDMNl  ;  KbOMNT  *  I 

bl*)  .  KNTMNT  :  HNTMNT  «  1 

blEC.  GO  TO  lU 

b|7C.  LLSl 

SlEl'.  call  REPRT(KNTMNT,RBMVL  S,BRKVLS|BNUKtRNUM,bDEAD« 

519'.  1  R0EA0,bUPN,RUPrt.B05NG  iROSNGtBUOhW.RWURW  (BRDSUMt 

SrCO.  2  RRDSUf'.OSTMINI 

b21l.  PRINT  ¥,  'END  OF  DlAM  RUN* 

523'.  END  IF 

S2V  .  ( 

b25f  .  ELSE  IF  TkNTMNT.lt. lUOOJ  THEN 

b2tC.  KN1MNT  r  KNTMNT  ♦  I 

52tL.  GO  TO  ir 

5  29  ,  C 

5  3- C.  END  IF 

5  31' .  Ot  eUC  SUBCHK 

•  32:.  AT  J 

5  33'.  END 

V6  26CB  DUMMT  ARGUMENT  ’AFRC *  IS  NEWER  REFERENCED 

VG  2LC7  VARlA.iLE  ’PREP’  APPEARS  IN  A  DECLARATION  BUT  IS  NEVER  REFERENCED 
VG  2608  DUMMY  ARGUMENT  ’SHOTSI’  IS  NiVER  REFERENCED 

H  3  WARNINGS  765  IBANK  lUtCB  OBANK  31  COMMON 
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SIF  IF.D 


SIFIED 


DIAMP UBLISH.AR1LSS 
R1  C<l/01/F2~10:33ICtI 

IOC*  £%*v.t^m*’^*******’^**9*’^ 


SUeROUTlNC  APTLSS 


«  « 1^  «  *  41  *  *  i|i  X.  »  *  IK  *  *  *  #  »  «  41  4  >» 


11  r.  c 

KG.  C 
130.  C 
i*»n, 

150.  C 
ItK.  C 
170.  C 
1EC.  C 
19f.  C 
2P0.  C 
ZIC.  C 
?2C.  C 
230.  C 
2‘(r.  c 
2  50.  C 

2ec.  c 

27C.  C 
2  6-'.  C 
29  U. 

3CC. 

MO.  C 
32:  .  C 
33  f". 

3A0.  1 

350. 

3tr.  C 
370. 

3fl('. 

39 

900. 

<I10, 

<I2C. 

•130. 

990. 

95C. 

9t'  . 

•il', 

98  r. 

99",  2  0 

5f'0.  10 

51  f.  C 

52  '  . 

530, 

S9C. 

65P. 

5tr,  9  0 
57''.  30 

58  r,  C 


SUBROUT INE  ARTLSS  <K NT MNT ,A fiPAM , XART JF • X WPN ,XCHR ,X  ARTlS i 

THIS  SUBROUTINE  DETERMINES  XARTLSII.J),  THE  ARTILLERY  LOSSES 
FOR  X  FORCE  WEAPON  TYPE  1  IN  TACTICAL  MODE  0=1,2 

KNTHNT  MINUTE  COUNTER  FOR  DIAH  BATTLE 

ARPAHI7I  ESTIMATED  BATTLE  TIME  FOx  ARTILLERY 
XARTJFII,3I  LOSS  RATE  PER  MINUTE  FOR  X  FORCE  WEAPON  TYPE  1 
TN  TACTICAL  MODE  0=1,2 

XWFNlKJ^n  NUMBER  OF  X  FORCE  WEAPON  TYPE  1  IN  TACTICAL 
MODE  J=l,2 

XCHRn,91  WEAPON  CATEGORY  OF  X  FORCE  WEAPON  TYPE  1: 

DISMOUNTED:!,  H0RTARS=2,  LIGHT=3,  HEAYY=9 


DIMENSION  XART JF  « 10,91 ,XHPN(  ID , 3 1 , XChR 1 10 , 5 1 , X AR TL S i 1 C , 2  I , 
1  ARPAMtei 


IF  (MNTMNT.LE.ARPAMI7I1  THEN 
DO  10  1=1, 1C 
DO  20  j:l,2 

IFtXWPNIl ,J« 1  I  .GT  .01  THEN 

lF(XCHR(l,9l,Eti.l  .AND.  J. EQ.il  THEN 
XARTLSIltUl  :  0 
ELSE  IF  IXWPNU,  31.1  T.Ol  THEN 
XARTLSI1,J)  7  XARTJFn,31 
ELSE 

XARTLS(I,Jl  :  XARTJFll.Ti  *  XWPNtl,J4]l  / 
1  (XWPNll  ,21  «  XWPNU,  3)1 

Ef  0  IF 
ELSr 

XARTLS(I,J)  =  C 
EiiO  IF 
CON IlNUE 
CONTI NUr 

USE 

DO  31  1  =  1  ,1C 
DO  90  j:l,2 

X AR 1 LS<1  « Ji  =  0 
CONIINUE 
CONTINUE 


59",  Ei.D  if 

ECO.  RETURN 


El :  .  DEBUG  SUBCHK 

‘  2  ;  .  1  1 
63  .  L.\0 


H  253  1  BANK  5  i  OBANK 
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SIFIED 


JIFIED 


OIAMPllfctlSH  .ARISF 
1  C«*yriW  P2-Hj:33«G  ,1 

ICO*  c  ^******************** 


^L'CROUTINE  ARTSP  ^****in^*********»****  * 


SOBROUT  INF.  ARTSPIKNTKNI  «FPF  TH  , OXR  VWP  *  XAR  T JF  ,  ARPAHtXWPK  , 

1  XCHR  ,XOFA  1  ,XAR7SP1 

THIS  SUBROUTINE  OETERHINES  XARTSPUtJTi  ARTILLERY  LOSSES 
USED  ONLY  IN  SUPPRESSION  FOR  X  FORCE  WEAPON  TYPE  I  IN 
TACTICAL  H(’OE  J:i,2 


RNTHNT 

FPFTN 

DXWYWPT 


X ARTJFf 


At.  PAH  |i| 
ARPAH  (5 
ARPAH  T8 
XOFAT 
XWPNII, 


HINUTL  COUNTER  FOi-  DIAH  BATTLE 
FINAL  PROTECTIVE  FIRE  COUNTER  FOR  DIAH  BATTL 
DISTANCE  FROM  X  FORCE  WEAPON  TYPE  I  IN  TACTI 
HOOE  J-I,2  TO  Y  FORCE  nEAPON  TYPE  H  OF  WHICH 
H:n«20  ARE  IN  TACTICAL  MODE  2 
I,3J  X  FORCE  ARTILLERY  LOSSES  FOR  WEAPON  TYPE 
I  DURING  HINUTE 
TACTICAL  MODE  J: J,2 
)  NUMBER  OF  MINUTES  COUNTERPREP 

I  NUMBER  OF  MINUTES  FINAL  PROTECTIVE  FIRE 

I  PREP  MINUTES  FIRED  IN  DIAH 

INDEX  FOR  X  FORCE:  DEFENDING:].  ATTACKING:2 
J4]|  NUMBER  OF  X  FORCE  WEAPON  TYPE  I  IN  TACTICAL 
MODE  J:lt2 


BATTLE 
TACTICAL 
WHICH  ONLY 


TYPE 


FIRE 


DIMENSION  0XHYWPna«20t2l  .ARPAMieitXART  JFIII  |SI,XARTSP(IO,2) 
1.  XCHRnOt^jl.XWPNIlO.S) 


VAR  :  1 

IF tXDFAT.EQ. n  THEN 
PREPTM  :  ARPAMI61 
ELSE  IF  URPAMM  l.GT.ni  THEN 
PREPTM  r  ARPAHiei  2/3 
ELSE 
END  IF 

If  «KNTNNT.LC«PREPTM  I  THEN 
VAR  :  2 

END  IF 

DO  1C  1=1,10 
DO  2G  Mr  1,20 
DC  3D  J=l,2 

DIST  =  ABS(DXWYWP<1,H,J}| 

IF (D1ST.LT.200I  THEN 

IFfFPFTM.LT*  ARPAMfSIi  THEN 
VAR  :  2 

FPFTM  =  FPFTM  «  1 
GO  TO  35 
Ei.O  IF 
END  IF 
CONTINUE 
CONTINUE 
CONTINUE 


DO  WD  1=1,10 


SIF  lED 


S1FI£D 


690. 

700. 

710. 

720. 

730. 

7«»C. 

75  D. 

7fcG. 

770. 

780. 

79^. 

800. 

81  r. 

82  r.  c 

830. 

840.  C 
85?!.  50 

at  r,  9  0 

87  0,  c 

88  0, 

89C, 

900, 

91-!, 


00  50  J-1  *2 

1  F  I XWPNI 1  1 1  THEN 

IFI>>CHr!i,‘.I,EC.1  .and.  J.EO.n  THEN 
XARlSPllfJ*  =  0 
ELSE  IFfXWPNIItSI.Ll.Dl  THEN 
XARTSPUfJI  =  )<ARTjFn»3l 
EL^E 

XARTSPdtUi  :  XARTJFII,3I  ♦  XkiPNII 
|)JWPN<I,2I  ^  X«PNn»3)l 
END  IF 
ELSE 

XARTSPIliJl  =  0 
E*,0  IF 

XARTSPll.Jl  :  *ARTSPI1*J>  ♦  VAR 


XtoPNlIf J«1  1  i 


CONTINUE 

CONTINUE 


RETURN 

DEBUG  SUBCHK 

AT  1 

END 


N  353  IBANK  7fc  OBANK 
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slFltD 


UI  AMPUBLI  SH  .BSEILD 
VI  Uk/CU  P2-‘10:S3ID,) 


ICC. 

C  ^ 

Sl.BROUTlNE  BSLTLD  »*♦♦♦♦♦  y************** 

IT’. 

C 

1.  •  . 

1  ’ 

C 

r 

1<«  . 

SUBROUT INO 

BSETLO  (BNUH,lBU,eSLD  ,  BSLDR  .BC  HR  ,  IBNFI  D  ,  B  AMO  ) 

150. 

c 

ur. 

c 

THIS  SUBROUTINE  LOADS  T«£  AMOUNT  OF  AMMUNITION  AVAILABLE  FOR 

17C. 

c 

A  PARTICULAR  WEAPON  TYPE  INTO  BAMO 

leo. 

c 

190. 

c 

BAMOII.JI 

ARRAY  FOR  AHHUNITICN  LOAD  FOR  WEAPON  TYPE  I 

200. 

c 

OF  WHICH  J=1  IS  THE  PRINCIPAL  WEAPON  AND  Jr2 

"IC. 

c 

FOiJ  SECONDARY  ROUNDS 

22  . 

c 

BNUH 

NUMBER  OF  BLUE  FORCE  WEAPON  SYSTEMS 

2!'-. 

c 

iBun  1 

ARRAY  POINTING  TO  PROPER  ENTRY  IN  ARRAY  IBNFIO 

Z'ID. 

f 

FO^'  IHE  I  WEAPONS  CURRENTLY  BEING  PLAYED  IN  DIAM 

250. 

c 

bSLD 

FRACTION  OF  BASIC  LOAD  AVAILABLE  FOR  PRIMARY 

"VC. 

c 

SYSTEMS 

2  71;. 

c 

bSLDR 

FRACTION  OF  BASIC  LOAD  AVAILABLE  FOR  SECONDARY 

211, 

c 

SYSTEMS 

280. 

c 

BCHRII,3) 

BASIC  LOAD  FOR  BLUE  FORCE  WEAPON  TYPE  I 

290. 

c 

IBNFIOIliJI  ARRAv  HOLOlNC  PRINCIPAL  JIFFY  WEAPON  DESCRIPTORS 

200. 

c 

FOR  1=1,25  JIFFY  WEAPONS  PLAYED  IN  DIAM.  J=l,2  ARE 

310. 

c 

PRINCIPAL  WEAPONS  ON  PLAIFqRH,  AND  J:3  CONTAINS  A  6 

32  0. 

c 

WHEN  THE  WEAPON  HAS  A  SECONDARY  SYSTEM 

230. 

c 

2k'  . 

c 

!S!.\ 

DIMENSION 

eAM0(lQ,2t,I8NF10l25,<«l,BCHRU0,51,IBUdDI 

3tC. 

c 

37f  . 

c 

38!.. 

c 

SET  LOAD  FOR  SECONDARY  ROUNDS 

29t . 

1 

RRNOS  = 

300.0 

«*C0. 

c 

INI  TIALli'E 

ARRAYS  AND  VARIABLES 

«]C. 

W  AR:0 

‘<70. 

CALL  INIll <EAHO«V ARt 

*»3n. 

I  BNUM  :BNUM 

c 

LOAD  PRIMARY  AND  SECONDARY  ROUNDS 

00  10  Iz 

I  ,1BNUH 

‘•to. 

BAHOU 

,11  :  BSLD  «  BCHRIl ,  3) 

‘•70'. 

IFIlBNFlOnBUd  1,31  .EQ.6I  THEN 

Meo. 

BAMOn  ,21  :  BSLDR  *  RRNOS 

990. 

END  IF 

src. 

IFdBNFIDdBUtI  1,11.EU.21  .OR.  IBNF 1 D  d  6U  ( 1 1  , 1 1 .  EQ  .  2b  1  THEN 

510. 

BAH0d,21  =  BSLDR  ’•  180 

S2C. 

END  IF 

53  '. 

10 

CONTINUE 

. 

c 

55r. 

RETURN 

56  . 

DEBUG  SUBCHM 

571  , 

AT  1 

5b'  . 

END 

H  Ilk  1  BANK  OBASK 


3-27 


SIFIED 


SIFICO 


OIAHPUBLI SH.DHRTO 

I  o<i/oi/ e2-n  :33tO  il 


C 


SUBROUTINE  OMRTO  *******0***0********** 


SUBROUTINE  OMR  TO IXCNR tX WPN « XDHR TO  I 

THIS  SUBROU11NE  CALCULATES  XOHRTO*  THE  RATIO  OF  X  FORCE 
OISMOUNTEO  TROOPS  TO  X  FORCE  TROOP  CARRIERS 

XCHRtlfRi  CA1E60RY  OF  X  FORCE  WEAPON  TYPE  I: 

01SH0UNTE0:l|  HORTARS=2i  LI6HT:3t  HCAVVr<( 
XUPNIItTI  NUMBER  OF  WEAPON  TYPE  I  IN  TACTICAL  MODE  2 
X10T0M  TOTAL  NUMBER  OF  X  FORCE  OISMOUNTEO  TROOPS 

XTOTMC  TOTAL  NUMBER  OF  X  FORCE  MOUNTEO  CARRIERS 


DIMENSION  XCHR  nU,5l,XWPNI  10|3I 


TOTAL  NUMBER  OF  OISMOUNTEO  TROOPS 
XT0T0M:0 
DO  1C  I=l|10 

IFI XCHR|1,M  l.EQ.l  1  THEN 

if(xmpn(I«3i.ci.o)  then 


XTOTOM 
END  IF 

end  if 

CONTINUE 


:  XTOTOM  «  XUPNIl 


TOTAL  NUMBER  OF  TROOP  CARRIERS 
XTOTMC:C' 

00  20  1:1  ,10 

IFOCHR  <  I(R  I.EQ.3  }  THEN 
IF  (XWPNI I  ,31 .GT .01  THEN 

XTOTMC  r  XTOTMC  «  XWPN«I,3I 
END  IF 
END  IF 
CONTINUE 


IFIXTOTHC.EQ.Ol  THEN 
XTOTHC:-99999 
PRINT  ICOO 

1000  FORMA  in  HO  ,2 '«H  NO  EMPTY  TROO 
END  IF 

IFIXTOTOM.EO.QI  THEN 
PRINT  ICIO 

IDlu  FORMAT  (1H0,21H  NO  OISMOUNTEO 
L^0  IF 


ROOP  CARRIERS  I 


TROOPS  1 


XOMRTO  :  XTOTOM /XTOTMC 


RETURN 
DEBUG 
(■1  1 
CNU 


SUBChW 


N  12e  IBANK  55  OBANK 


5IFIE0 


ilFIED 


01*MPUBL1 SH.DSKLSS 
;i  rjqyol/ t>2-10;33«0  ,I 

ICC.  c SUDROUIlNt  OSMLSS  «!»♦*♦♦♦***♦*♦♦♦♦♦*♦♦♦♦ 
U  .  C 


SUBROUT  INC  OSKLSS  ( X  NUHDK  ,)l  y PN  i  X  CHR  ,£  X  TLS  S  I 

THIS  SUBROUTINE  DETERMINES  THE  NUMBER  OF  DISMOUNTED  LOSSES 
WHILE  BEING  CAWRIEU  IN  TROOP  CARRIERS 

XNUMOM  NUMBER  OF  X  FORCE  TROOPS  THAT  DISMOUNT  A 

CAIRIER 

XHPNn,J-*n  NUMBER  OF  X  FORCE  WEAPON  TYPE  1  IN  TACTICAL 
MODE  J:l,2 

XCHRUi**!  CATEGORY  OF  X  FORCE  WEAPON  TYPE  I; 

01 SMOUNTEP:  J,  MORTARS:?,  LIGHT:3,  HEAVY:«< 
L>1LSS(I,JI  EXPECTED  TOTAL  LOSSES  OF  X  FORCE  WEAPON 
TYPE  1  IN  TACTICAL  MODE  j:i,2 

DIMENSION  XHPN(1L,31,XCHR(  )0 , b  I , EX TLSS (10 , 2  1 


TOTAL  ALL  MOUNTED  TROOPS 
TOT  DM  :  0 
DO  If  1=1,10 

1F<XCHR (l.Rl.EO.l  I  THEN 
IF(XWPN(1  ,2  l.GT.D  THEN 
TOTUM  :  XuPNf  I  ,21  •*  TOTfJM 
END  IF 
E'lO  IF 
CONTINUE 

IF  (TOTOM.LE.OI  THEN 
RETURN 
END  IF 

SEARCH  FOR  MOUNTED  CARRIERS  WITH  LOSSES 
DO  2C  1= 1 ,10 

IF(XCHRn,<t).EQ.3l  THEN 
IF(XUPN(  1 ,21 .GT.OI  THEN 
IF  IXHPNU  ,  31  .GE  .01  THEN 
IF(EX  TLSSUfll  .GT.UT  THEN 

CALCULATE  MOUNTED  MILLS 
TCLSS  =  EXTLSSII,  1) 

00  30  j:l,IO 

IF  (  XCHRIU,  RT.CQ.I  I  THEN 
IF (XUPN<U,2I .GT.OI  THEN 

EXTLSSIJ,!)  :  XNUMOM*XUPN (U,2 )*TCLSS /TO  TDM 
«  EXTLSSIJ, 11 
END  IF 
END  IF 
C  ON  1 1  NUE 


END  IF 
END  IF 
END  IF 
END  IF 
CONTINUE 


sififd 
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SIFIFO 

670. 

RETURN 

68G. 

DEBUG  SUBCNK 

69i:. 

AT  1 

7CO. 

END 

N  209  l^ANK  91  DBANK 
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siFiro 


ilFIEO 


DIAMP  UBLISH.DSNG 
U  OH/Oiy  52-10:33IC  ,J 


100. 

11  r. 

i:  . 

1  . 

!«»'. 
150, 
U'  , 
170, 
18C. 
IS'  . 
200. 
210. 
.'2  0. 
23C. 
2 ‘10. 
250. 
2tO. 
27'. 
280. 
29''. 
3CC. 
310. 

32  0. 

33  . 
3«(G. 
35'  . 
3tr . 
37  , 
3SC. 
•'90, 

*il  r. 
<«20. 
‘•3C, 

‘♦51, 

•♦tc. 

‘♦70, 

(♦e  , 

•♦9  '  , 

SC'C. 
51  <  . 
52C, 
53(‘, 
B**!  . 
55  r. 
set . 

SIC, 
58C, 
5S(  . 

eco. 

tic. 

t2  ’  . 
63  . 
ttf  , 

65  , 

66  '  , 
67'  , 
680. 


C  «i^«*««4>*««*****4>*«4>**:»  SUBROUTINE  0  SNG 

C 

c 

r 

SUBROUT  INE  0 SNC  ♦)( HOLDS  ,  kOS NG,  XNPN  ,)l  CHR  ,  XOE  AO ,  1  FR  C  •  OGH  ATT  , 
1  XMDRWl 


C 

C 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

( 

c 

c 


c 

1 


ir 

c 


HD 

30 

20 

C 


1HIS  SUBROUTINE  DETERMINES  IF  THE  X  FORCE  WILL  WITHDRAW  BASED 
ON  CUMULATIVE  WEAPON  CATEGORY  KILLS 


XOSNG 

XWPNI I, J«] } 
XCHR(I,m 
XDEAOIl  .01 
IFRC 

OGHATTt A ,8  I 

XWORV 
;CiE  AO(A  1 
CALIVEI A1 
XHOLOS 


INDEX  FOR  X  FORCE:  ENGAGING:-!,  0ISENGAg1NG=2 
NUMBER  OF  X  FORCE  WEAPON  TYPES  I  IN  TACTICAL 
MODE  J:l,2 

WEAPON  CATEGORY  OF  X  FORCE  WEAPON  TYPE  I: 
DISMOUNTED:!,  M0RTARS:2,  LI6HT:3,  HEAVY:‘^ 
CUMULATIVE  DEAD  FOR  X  FORCE  WEAPON  TYPE  I  IN 
tactical  MODE  j:l,2 
INDEX  FOR  X  FORCE:  BLUE:},  RED:2 
0 ISENGACEHENT  ATTRITION  FRACTIONS  OF  WEAPON 
CATEGORY  A  AND  FORCE  B 

INDEX  FOR  X  FORCE:  ENGAGING  :it  WI THDRAW  1NG:2 
NUMBER  OF  WEAPONS  DEAD  IN  WCA^ON  CATEGORY  A 
NUMBER  OF  WEAPONS  ALIVE  IN  WEAPON  CATEGORY  A 
INDEX  FOR  X  FORCE:  HOLDING  POSITION:?,  ALLOWED 
T  r  mITHURAw:2 


DIMENSION  XWPN(10,3I,XCHRI  lC,5),X0EADt 10,2 l,DGMATT (M ,2  I 
I  tCOEAOHI  ,CALlVEHI 


IF  (XOSNG.EO.;?  THEN 
XWt'RW  :2 
RETURN 
ENO  IF 


IF  ♦XHOLDC.EQ.l 1 
RETURN 
END  IF 


THEN 


DO  ID  1  :i  ,«* 
CDEAOIII  : 
CALlVEin  : 
CONTINUE 


1. 


00  2C'  ICAT:1  ,H 
DO  3r.  j:l,2 
DO  AC  1:1,1C 

IFIXCHRI 1  ,A1  .ED.ICAT  1  THEN 
IF  (XWPNtl,  n.CT.OI  THEN 
COEAOUCATl  =  COEADIICATI  « 
CALIVEUCAII  :  CALIVEdCATI 
EMD  IF 
ENO  IF 
CONTINUE 
CONTINUE 
CONTINUE 


XDEAOd  ,DI 
«  XWPNdtJ«ll 


DO  50  ICAT:1  ,A 
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5IF1E0 


SIFIEO 

690. 

7C0. 

710. 

720. 

7Jn. 

79  r. 

750.  50 

7t(!.  C 
770. 

78  0. 

790. 

ero. 


IFMCDEADIICATI  C  ALI  WE  IlC  A  T  1 1 .07. 0  J  THEN 

FRCT  :  C0EADUCA7I  S  iCDEAOIlCATl  *  CALlVEUCAlIl 
IFIFRCT.GE.DGHAlTUCAlilFRC  )»  THEN 
XMORW  =  2 
END  IF 
END  IF 
CONTINUE 

RETURN 

DEBUG  SUBCHK 

AT  1 

END 
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IFIED 


D1 AMPUBLl SH .E  GLOSS 
1  r2-r::33  <r  ,I 


!CC. 

no. 

i:  . 
1 5 
i«  . 
ISO. 

1 .  c. 

17'. 
16'  . 
ISO. 
"CG. 
■1 !  . 
22  0. 
2  3C. 
2«ir. 
2SC.. 

2t  t 

2  70, 
/LG. 
?S'  . 
3i  Q. 
31C. 
7-C. 
33  . 
3*10. 
3‘.C. 
3fc’  . 
37f. 

<ec. 
•r". 
*100. 
••I  i . 

**2  I  . 

"3  . 

<45  . 
«tf . 
«7  . 
<<F  . 
«?l  . 
SCO. 

5  'C. 

r2r. 

53r. 

s^  . 

55\ 

sti„ 

57G. 
581.. 
5C  . 

6  0. 
t]  . 
62  • 
t3  , 
L<<  . 
f  5'  . 
it  . 
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C 
( 


c 


( 

c 

c 

c 

t 

c 

c 

c 

c 

c 

c 

( 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

t 


c 

r 

1  f'L) 


C 


t 

c 

RO 

30 

20 

in 

c 


sue  ROUT  INE  ECLOSS  tVXPhWjXWPN, PC  XV  V2|YkOF.R,»FLSFR, 

1  XSPFDG, EXCESS  1 

THIS  SUBROUTINE  CALCULATES  GXCL SS 11 ,M , J 1 ,  THE  EXPECTED 
COMHITTLE  LOSSES  FOR  X  FORCE  TARGET  TYPES  1  IN  TACTICAL 
MODE  J=1  ,2  FROM  Y  FORCE  WEAPON  M  OF  WHICH  M:]1,2C  ARE  IN 

tactical  mode  2 


YXPKW  IK  ,N,LI 

XWPNII, J4] ) 
CXVV2I 1 Jl 

YROFR  IK  ,N|L  I 

YFLSFh 
XSPFDGI  l,.il 


SSPK  FOR  Y  FORCE  WEAPON  K  IN  lACTlCAL  MODE 
L:1,2  against  X  FORCE  TARGET  N  OF  WHICH 
ARE  IN  TACTICAL  MODE  -l 
NUMBER  OF  X  FORCE  WEAPON  TYPE  1  IN 
lACTlCAL  MODE  0  =  1.2 

PERCENT  VISIBLE  OF  X  FORCE  WEAPON  TYPE  1 
IN  TACTICAL  MODE  J:l|^  TO  Y  FORCE 
WEAPON  TYPE  M  OF  WHICH  M=1.1,2G  ARE 
IN  KCTICAL  MODE  ? 

ROUNDS  FIRED  BY  Y  FORCE  WEAPON  TYPE  K 
IN  TACTICAL  MODE  1=1, ^  AGAINST  X  FORCE 
TARGET  TYPE  N  OF  WHICH  n:11,20  ARE  IN 
TACTICAL  MODE  2 

FALSE  FIRE  FACTOR  FOR  Y  FORCE:  INABILITY 
TO  DISTINGUISH  TARGETS 
FIRE  SUPPRESSION  FOR  X  FORCE  WEAPON 
TYPE  I  IN  TACTICAL  HOuE  J=1  .2 


DIMENSION  YXFKWI 10 ,2C,2 li XUPNI lDt3l,PCXvy2  I1D|20«2  1 
,  YRDFRnQ.2  0,2l|tXCLSSI10t2Dt2l|XSPFD6llC.2  1 


DO  lU  J  =  1  ,2 
DO  20  1=1, 10 

to  }r  l:1,2 

DO  “C  K:1  ,10 

PCVIS  :  PCXVYZll.K^IL-ll^lO.JJ  •  II  -  XSPF DGI 1 , Jl *0 . 33 » 
PK  :  Y>PKW|K,lMJ-n»lu,LI 
XNHTo  :  XWPNI  ],J«li 

RDFR  :  YRDFRIK,I«IJ-11»1G,L1  »  YFLSFK 
CMHTT  :  XNMTG  *  PCVIS 
ACMM1T  ~  AMAX II 1 , CMHTT 1 

EXCLSS I  I IL-11*1C,J1  =  CMMTl  ♦  I  1 -1 1 -PK/ ACMMTT 1**R0FR  I 

CON»  iNUE 
CONTINUE 
CONTINUE 

continue 

RETURN 

DEBUG  SUBCHK 
AT  IDO 
END 
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c 

c 


SUBROUTINE  ETEOSS  *■((♦♦♦***♦♦**♦♦♦*♦♦♦♦<»♦ 


SUBROUT INE  ETLOSS I XWPN, EXCESS «E  XTESS i 

THIS  SUBROUTINE  CAECUEATES  CXTESSI1(J)«  THE  T01AE  tXPLCTLD 
DIRECT  FIRE  E05SES  OF  X  FORCE  TARGET  TTPE  I  IN  TACTICAE 
MODE  j:l  ,2 


XWPNil ,  ) 

EXCESS! 1 ,M,JI 


NUH8ER  OF  X  FORCE  WEAPON  TYPE  1  IN  TACTICAE 
HUOE  J=l,2 

EXPECTED  COMHITTEF  EOSSES  FOR  X  FORCE  TARGET 
TYPE  1  IN  TACTICAE  MOUE  j:i,2  AGAINST  Y  FORCE 
WEAPON  TYPE  H  OF  WHICH  H:ll,20  ARC  IN  TACTICAE 
MODE  ? 


DIMENSION  XkPN«]Q, 31«EXCESSI lQt^O»2)|FXTESSI)C,2l 


00  ID  j:i  ,2 
DO  2r  in  ,10 
SRV  :  1 
DO  30  ESI, 2 
DO  ‘til  KS  1  ,10 

AXWPN  s  AHAX  HI  «,XWPNU  ,J4n  I 

SRV  SRV  *  !1  -  E  XCE  S  S  !  1  ,K  ♦  I  E- 11  *  1 0 ,  J  I  t  AXWPNl 

CONTINUE 

CONTINUE 

EXTESSI1,J1  :  XWPN!I,«H11  >»  i  1  -  SRVl 

continue 

CONTINUE 

RETURN 

DEBUG  SUBCHK 
AT  100 
END 
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STFIFD 


SIF  lET 


0]AHPljBLlSH.lNLi)i] 
i  D<«/C1/ 62-1  r.;33<0  ,1 


IOC. 

lie. 

K  . 

17. 
H  . 

lEC. 
ItC. 
17  . 
16'  . 
19C. 
2'  C. 
21C. 
22  . 
2  3C. 

2U  -  4 

25C. 
26  . 
270. 
2  SC. 
29  . 
3'  C. 
31  ■  . 
32'  . 
330. 
2U'  . 
35.C. 
36  0. 
370. 
3a  . 
39  . 
•ICC. 
MIC. 
92  . 
f3  . 
M<4<  . 
MSC. 
*  , 
M  70. 
•41'  . 
‘4'-  . 

5C  '. 

Sir, 


SUBROUTINE  INDXl 


SUBROUT  INC  INDX 1 (OFRCtBOFA  T  ,K0F A  T ,BFRC TP ,80 HH AX «R OHM AX  , 
BklORU  .RUORW  ,BDHV  ,ROHV  iBOVWTHiROVWTH  ) 


THIS  SUBROUTINE  PASSES 
AND  RED  FORCES: 


FOLLOWING  INDEXES 


BLUE 


DFRC  1  -  BLUE  FOhCE  DEFENDS 

2  r  FED  FORCE  DEFENDS 

BUFAT  1  I  blue  force  DEFENDS 

2  :  BLVE  FORCE  ATTACKS 

RUFAT  J  :  RED  FORCE  DEFENDS 

7  :  FED  FORCE  ATTACKS 

BFfiCTP  1  :  LIGHT  FORCE 

2  :  HEAVY  FORCE 

faliMMAX  MAXIMUM  NUMBER  OF  OL UE  TROOPS  PER  CARRIER 
RDMMAX  MAXIMUM  NUMBER  OF  RED  TROOPS  PER  CARRIER 
BWDRi.  I  :  BLUE  FORCE  ENGAGES 

2  :  BLUE  F  ORCE  Wl  THDRAWS 
RWDRU  1  :  RED  FORCE  ENGAGES 

2  :  RED  FOHCE  WITHDRAWS 
BDMV  1  z  BLUE  FORCE  IS  MOUNTED 

2  z  BLUE  FOiCE  IS  DISMOUNTED 
RU^V  1  z  PED  FORCE  IS  MOUNTED 

2  z  RED  FORCE  IS  DISMOUNTED 
BOVWTH  1  z  BLUE  FORCE  IS  NOT  IN  OVEHWATCH 
r  :  BLUE  FORCE  IS  IN  OVERwATCH 
ROVWTH  !  z  RED  FORCE  IS  NOT  IN  OVERWATCH 
2  z  RCD  FORCE  IS  IN  OVERWATCH 


determine  if  RED  OR  BLUE  FORCES 
IFTOF'->C.EQ.l  I  THE  N 

8  0FA1Z  1 

ROFATz i 
Ul  t 

BDFAT : 2 
R  OF  A  T  z  1 
END  IF 


ATTACKING 


defending 


DETERHINL  MAXIMUM  NUMBER  OF  TROOPS  PER  RED  AND  BLUE  CARRIER 
IFTBFRC’P.EO. n  THIN 
Bmhmax  zs 
ELSE 

BOMHAX  z7 
END  IF 

RDMMAX  zF 


SET  WITHDRAWAL 

BW'JRW  z  ] 

RUt  RW  :] 


INUEXE  S 


SIT  DISMOUNT 
bOMVzJ 
H  DM  V  r  2 


INDEXES 


3-35 


SIFIEO 

69C.  C 
7CO. 

71  r, 

7?C.  C 
73'. 

7*10. 

75% 


£LT  OVERWATCH  INDEXE' 
bOVWl ) 

ROVWTH:! 

RETURN 

DEBUG  SUBCHK 

AT  1 

END 
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ICC. 

c SUBROUTINE  IN0X2 

11'. 

C 

l?i-. 

c 

1  3'  . 

c 

!<«';. 

SUBROUT INE 

INDX 2 (KNTHNT .KW UHN T (FPFTM . BDSNG .RDSNG  # AHFL D t 

IbC. 

1 

BDFAT,BFLSFR,RFLSFR,BHOLDS ,RH0LDS 1 

to. 

c 

17  0. 

c 

THIS  SUBROUTINE  INITIALIZES  THE  FOLLOWING  VARIABLES  AND 

IfeC. 

c 

INDEXES 

IS'. 

c 

2:'0. 

c 

HNTMNT 

MINUTE  COUNTER  FOR  DIAM  BATTLE 

210. 

c 

KWDMNT 

MINUTE  COUNTER  DURING  WITHDRAVAL  IN  DIAM 

22  C. 

c 

FFFTM 

MINUTE  COUNTER  FOR  FINAL  PROIECTIVC  FIRES 

23P. 

c 

BDSN6 

INDEX  FOR  X  FORCE;  l:ENGAGIFG,  2= .)  ISENG  AGING 

2M  . 

c 

ROSNG 

INDEX  FOR  Y  FORCE*.  l^ENGAGIfC.  2=  J  ISENG  AG  I N6 

250. 

( 

AHFLDtl  1 

INDEX  FOR  MINES  IN  USE:  0:N0 .  l:VES 

2tf . 

c 

AHFLD  12  ) 

MINEFIELD  WIDTH 

2  7  0. 

c 

AMFLD  (3  1 

MINEFIELD  FRACTION  NOT  BYPASSED 

260. 

c 

A  "FLD  <8  1 

FRACTION  OF  ATTACKING  FORCE  ENTERING  MINEFIELD 

30  C. 

c 

B6LSFR 

FALSE  FIRING  FACTOR  FOR  BLUE  FORCE 

31  r,. 

c 

RFLSFR 

FALSE  FIFING  FACTOR  FOR  RED  FORCE 

32 

c 

BDFAT 

INDEX  FOR  BLUE  FORCE:  1=0£FENDING,  2=AITACKIN6 

?3D. 

c 

BHOLDS 

INDEX  FOR  BLUE  FORCE:  I:BlUE  FORCE  HOLDS  POSITION 

3AJ  . 

c 

Z:BLUE  IS  ALLOWED  TO  WITHDRAW 

35  . 

c 

RHOLDS 

INDEX  FOR  RED  FORCE;  ]  =  REU  FORCE  HOLDS  POSITION, 

3E0. 

c 

2:RE0  IS  allowed  TO  WITHDRAW 

37'  . 

c 

38  . 

c 

3S'  . 

DIMENSION 

AMFLD  181 

800. 

( 

81  , 

c 

82  r , 

c 

INITIALIZE 

VARIABLES  : 

"3  0. 

KNTHNT: 1 

"80. 

K  bOHNT  rf. 

850. 

FRF  TMIC 

86  f . 

BDSNG:] 

870. 

f.DSNG:l 

86-. 

8H010S:2 

8S0. 

R holds :2 

f'C. 

c 

51P. 

00  1C  ]: 

1  i8 

52C. 

A  MF  L  C  <1  f  r  n 

530. 

10 

continue 

58  ■  . 

(, 

550. 

IF  FBDFAl.EG.n  IHEN 

56  '  . 

BFLSFK  : 

0.8 

57'  . 

FFLSFR  :: 

C.8 

58!’. 

ELSE 

5S'  . 

BFL  SFK 

0.8 

6CC. 

CFLSFR  - 

0.8 

610. 

It'D  IF 

62 

c 

63i  . 

RETURN 

68r. 

END 
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ICC. 

no. 

izn. 

IZl. 

122. 

130. 

150. 

H 

17 


C  Ji^^******************* 

c 


SUBROUIINE  JNITI 


C 

c 

c 

c 


SUBROUTINE  INI T  1 1 ARR A Y, V AR 1 

THIS  SUBROUTINE  INITIALIZES  ARRAYII.JI  TO  EQUAL  VAR 

dimension  array (10.21 


180.  C 
190.  C 
200. 

210. 

220.  C 
230. 

23S.  C 
29  0.  2  0 

25  0.  10 

2tr.  c 

2  7 11. 

.  ren. 


DO  1C  J  =  1  .2 
DO  20  1=1.10 

ARRAY(  l.Ji:VAR 

CONTINUE 

CONTINUE 

RETURN 

END 
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SIF ItD 


DIAHPUBLI  SH  .INI  PKI 
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c 


SUBROUTINE  INTART  ****1^***^^**^^*^^1^***** 


1 '  . 

C 

14;, 

SUBROUT INE  INTART  tARPAM ,BA RTJF , RARTJF ) 

IbC. 

C 

16  >  . 

C 

THIS  SUBROUTINE  OETERKINES  ARTlLLERT  LOSS  RATES  TO  USE 

17U. 

C 

lf.(  . 

c 

AkPAK  17  1 

ESTIMATED  BATTLE  TIME  FOR  ARTILLLRV 

19C, 

c 

BARTJFI 1,4 1 

NUMBER  OF  BLUE  FORCE  WEAPON  TYPE 

1  LOSSES 

2CC, 

c 

ARTULEFT 

?1G. 

c 

BARTJFi I ,31 

NUMBER  OF  BLUE  FORCE  WEAPON  TYPE 

1  LOSSES 

cc  • 

c 

MINUTE  CUE  TO  ARTILLERY 

23!-, 

c 

RARTJFII,4) 

NUMBER  OF  RED  FORCE  WEAPON  TYPE  I 

LOSSES 

2»(C. 

c 

ARTILLERY 

250. 

c 

kARTJFlI.Sl 

NUMBER  OF  RED  FORCE  WEAPON  TYPE  1 

LOSSES 

26  . 

c 

MINUTE  DUE  TO  ARTILLERY 

27  . 

c 

re-. 

f 

2  9", 

01  HEN  SI  ON  6ARTJFnO,4l,RARTJF(  lC,4},ARPAHiei 

:.co. 

";l  . 

( 

.‘2  f  i. 

1 

UO  11  i:i ,10 

33C. 

BARTJFU 

U  =  BARTjFn,4l  y  ARPAHI71 

34C, 

RARTjFn,31  =  RARTJF(1,41  /  ARPANI71 

35  '  . 

n 

CONTINUE 

36  . 

c 

37  . 

R  t  T  UR  N 

36’  . 

UtBUC  SUBCHR 

3' 

AT  1 

u  U. 

1  M' 

h  lbANt« 

.M 

i.eANK 

SIF  lED 


SIFIEO 


OIAMPUBLISH.IMTDST 
B1  0(1/01/82-10:3310,1 


lOO. 

c  4i*)»*«****i^«*#«i*  SUBROUTINE  INTOST  *******************if* 

110. 

C 

12^. 

c 

isr. 

c 

110. 

SUBROUTINE  INTO  ST  1 1 FRC  «  XCHH  ,)l  UPN  tDFCUC  ,OXF  XUP  1 

150. 

c 

160. 

c 

THIS  SUBROUTINE  INITIALIZES  DXFXWPtl,JI,  THE  UlSTANCL 

170. 

c 

FROH  X  FORCE  CENTROID  TO  X  FORCE  WEAPON  TYPE  I  IN 

160. 

c 

TACTICAL  MODE  0=1,2 

I9r.. 

c 

200. 

c 

URC  INDEX:  1=BLUE  FORCE,  2=RED  FORCE 

210. 

c 

XCHR(I,11  WEAPON  CATEGORY  FOR  X  FORCE  WEAPON  TYPE  1: 

220. 

c 

dismounted:!,  N0RTARS:2,  L16HT:3,  HEAVYn 

23G. 

c 

XWPN(I,J411  NUMBER  OF  X  FORCE  WEAPON  TYPE  I  IN 

210. 

c 

TACTICAL  MODE  J:i,2 

25  0. 

c 

OFCWCTB  ,IFRC  1  DISTANCE  FROM  IFRC  CENTROID  TO 

260. 

c 

WEAPON  CATEGORY  CENTROID  B 

27r. 

c 

2g;  . 

c 

29  C. 

DlMENSl  ON  XCHR ( 1 U , 5 1 ,XU PN 110, 3 1 ,DF CWC ( 1 , 2 1 ,DX F X WP ( ID , 2 1 

300. 

c 

31  . 

c 

32  0. 

1 

DO  ID  j:i  ,2 

33r. 

DO  20  1=1,10 

310. 

c 

35  0. 

1FIXWFN(1,J«1I .GT.Ol  THEN 

36  0. 

IF H XCHR ( 1,11 .E0.11.AN0,( J.EQ.l  1 1  THEN 

370. 

OXFXWPI  ],JI  :  -9999999 

36  U 

ELSE 

39  0. 

OXFXWPIliJI  =  0FCWCIXCHR(I,1I,1FRC1 

IOC. 

END  IF 

11  {. 

ELSE 

12 

DXFXWPII,J1  =  -9999999 

13C. 

END  IF 

11  \ 

c 

151’. 

20 

CONTINUE 

16  0. 

10 

CONTINUE 

17  0, 

c 

16  0, 

RETURN 

19  0, 

DEBUG  SUBCHK 

5.0, 

n  1 

51  r. 

END 
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nc.  c 
IT".  c 
n  ,  c 


iU', 

ISO.  r 
It  .  c 

17'  .  C 

lec.  c 
IS'  .  c 
:co.  c 

21 C'.  C 
220.  C 
2  30.  C 

2*tr.  c 

2  C.  C 

2(  ,  C 

27  .  C 

2  J  (• .  C 

?s  .  c 

7CC.  C 
31 C.  C 
320.  C 
330.  C 
It '  .  C 


3fC. 

3S  . 


«C.  C 

*<1  ■  .  c 

‘»2  '  .  C 

*<3  .  1 

‘(‘to. 

*<50. 

««t  .  20 

M  7  .  10 

«! !'  .  C 

MS'  .  C 

i'2  '  . 

530. 

5M  , 

56  . 

5  7  '.  30 

581,  r 
5S  .  C 

fOC. 
eiD. 

12  V; 

13.  MO 
;M'',  c 
1 5  .  C 
etL. 
fc 

tn  . 

fcS'  . 

700. 

71C. 


SUbROUT INE  JFLSSItCHR,YUPN,EVCLSS(EVTLSS«VARTLS«VHNLSS  tXVKVLSI 

THIS  SUBROUTINE  CALCULATES  X  Y**  V  L  S  IH ,  1  1 ,  THE  KILLER  VICTIM 
SCOREBOARD  FOR  X  FORCE  KILLER  WEAPON  TYPE  M  AGAINST  Y 
FORCE  VICTIM  WEAPON  TYPE  I.  THE  LOSSES  ARE  UPDATED  AND 
CUMULATED  EVERY  MINUTE. 


E YCLSSI 1 ,M iJl 

tXTLSSI 1 ,J1 
A'-ILL  «M  1 
GLOSS 

Y  AR  TLS< I  ,  J1 
YMNLSSl 1 |JI 


THE  EXPECTED  COMMITTEE  LOSSES  FOR  Y  FORCE 
•AKGET  TYPE  I  IN  TACTICAL  MODE  J  FROM  THE 
OPPOSING  FORCE  WEAPON  TYPE  M  OF  WHICH 
j:il,2.-  ARE  TACTICAL  MODE  2 
THE  TOTAL  EXPECTED  LOSSES  FOR  Y  FORCE 
WEAPON  TYPE  1  IN  TACTICAL  MODE  0=1,2 
LOCAL  ARRAY  HOLDING  NUMBER  OF  WEAPONS 
KILLED  BY  WEAPON  TYPE  M 

TOTAL  NUMBER  OF  VICTIMS  BY  COMMITTEE  LOSSES 
KILLED  By  weapon  TYPE  M 
ARTILLERY  LOSSES  FOR  Y  FORCE  WEAPON  TYPE 
I  IN  TACTICAL  MODE  0=1  ,2 

MINE  LOSSES  FOR  Y  FORCE  WEAPON  TYPE  1  IN 
TACTICAL  MODE  J;  1,2 


DIMENSION  E  YCLSSn  0,20,2  1  lEYTLSS  110,2  ),XYKVLS  112,13) 

1  ,  AKILLIIO  l,yARTLSUC,2l,YHNLSSUD,2  )  ,YWPNtl[;,3) 

2  ,  bKlLLnC,lL;i,E2TLSSI  10 ,21 ,  YCHR  (  10, 5  I 


COPY  EXPECTED  LOSSES  DURING  MINUTF 
DO  IL  jr 1  ,2 
DO  2C  i=i,ir 

t2TLSSn  ,  J1  :  tYTLSSn,J) 

CONTINUE 

CONTINUE 

EXCLUDE  MOUNTED  INFANTRY  LOSSES 
DO  3C!  Kl.lC 

'FT  YCHPU.M  l.EO.l  .AND.  E  Y  TLS  S 1 1 ,  1  ) .  6T  .  0 1  THEN 
E2TISS(I  ,11  :  L 
END  IF 
CONTINUE 

CALCULATE  ARTILLERY  AND  MINE  LOSSES  AGAINST  VICTIMS 
DO  Mr  II]  ,10 

XYKVL5(11,1)  :  YARTLSII,!)  *  YARTLSn,21  *  XYKVLS(11,II 
XYKVLSIl?,])  =  VMNLSS(i,l)  «  YMNLSSn,2l  «  XVKVLS<I2,II 

CONTINUE 

CALCULATE  HlLLER/VIClIM  SCOREBOARD  EXCLUDING  M0UN1EP  INFANTRY 
DO  7D  1=1,10 
(LOSS  :  r 
DO  SC  M:1,1C’ 

AKULIMl  =  £YCLSSIl,M,ll  *  E  YCL  SS  i  I  ,  M  ,2  I 

AKILLIH)  =  AKILLIH)  «  E YCL SSIl ,M< 1 0 , 11  «  EYCL SS (I  ,M4 1 0,2 ) 

CLOSS  =  CLOSS  «  AKlLLTMl 
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SIF  lED 


SIFIED 


72  0. 

50 

CONTINUE 

73  C, 

C 

COMPUTE  FRACTION  OF  VICTIM  I  KILLED  BY  WEAPON  M 

7140. 

DO  €0  M:1  ,10 

750. 

IF (CLOSS.GT .Cl  THEN 

7fc  r. 

BKILLIM.II  :  AKI LLi n i ♦! F2 TL SS 1 1 , I M 1 2T LSS « 1 , 2 JJ 7 C LOS  : 

77  r. 

XYKVLSIH,!}  =  XYKVLSIPtll  <•  BKlLLIM,!! 

780. 

END  IF 

79':. 

6C 

CONTINUE 

ano. 

70 

CONTINUE 

81  n. 

C 

82  C. 

C 

TOTAL  KlLLERyVICTIM  TROOP  CARRIER  LOSSES 

830. 

TOTCKL  =  0 

00  80  M:1,1Q 

850. 

DO  90  iri.lC 

86  0, 

IFUCHRII  •<4l.E0.3  .AND.  Y  WPNt  1 , 31  .NE  .  >999 1  THEN 

670. 

TOTCKL  :  TOTCKL  BKlLLIM,!! 

88  0, 

END  IF 

891’, 

90 

CONTINUE 

9'';o. 

80 

CONTINUE 

91 

C 

92  n. 

c 

CALCULATE  KILLE R7 VICT IM  SCOREBOARD  FOR  MOUNTED  INFANTRY 

930. 

DO  lOU  M  =  1  ,1G 

9'4C. 

DC  lie  1  =  1  , 10 

950. 

IFIYCHRI I  ,<4 1  .EL  .3  .AND.  Y  UPN i  1 , 3  1  .NE  . -9 99 1  THEN 

96'], 

CARR  :  BKlLLIM,! 1 

97']. 

DO  120  J=1,]L' 

980. 

IFIYCHRI  J,m.EO.  1  .AND.  E  YTLSS  IJ ,  1  1 .  BT  .  C  1  THEN 

98  5. 

IFI  TOTCKL  .6T. 01  THEN 

99 1), 

XYKVLSIH, J1  r  XYKVLSIH, J)  «  1 C  AR  R/ TOT  CK  L  1 

995, 

1  0  EYUSSIJtl) 

1010. 

END  IF 

1  CIS. 

END  IF 

1  20. 

120 

CONTINUE 

1  030. 

END  IF 

1  i’«lO, 

110 

CONTINUE 

l^SD. 

100 

CONTINUE 

1  06  0. 

c 

1  r'7D. 

c 

1  rec. 

R  L  T  UR  N 

I  090. 

DEBUG  SU8CHK 

I  lOO. 

AT  1 

1 1 1  ■']. 

LK-D 

557  IBANK  227 

DBANK 
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SIFIED 


UFIED 


OIAMPUfall 5H.LRDT 


U 


CMyCiy  f2-10:33JC  ,J 


!C  ;  . 
lie. 
1?'  . 
13  . 
!«<•  . 
ISC. 
HI. 
17C. 
IPC. 
19-  . 
'CC. 
<10. 
P2  . 
230. 
'.HL, 
2'  . 
27  . 
2  6;. 
29  . 
3CC. 
?1P. 
32  0. 
^2  . 
3«|-  . 
3  SC. 
J(  '1. 
370. 
380. 
^9'  , 
8'0. 
‘‘ID. 
82C. 
83 

88'’. 
8f.C. 
8t!:. 
8'  . 


c 

c 

c 


S  BH0U7INE  LRDT 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

t 

c 

r 

c 

c 
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SUBROUT INE  LfiO T  IBF R CTP, RFR C TP , OPS TR , T AC A  1 

THIS  SUBROUTINE  INITIALIZES  THE  FOLLOhlNO  VARIABLES 
AND  THE  TACTICS  ARRAY.  TACTICS  PERTAIN  10  ATTACKER 
LIGHT  AND  HEAVY  CATEGOUY  WEAPONS  ONLY.  LIGHT 
SYSTEMS  WHICH  ARE  TROUP  CARRIERS  CAN  DISMOUNT 
INFANTRY,  AND  HEAVY  SYSTEMS  CAN  GO  INTO  OVERWATCH. 

bTRCTP  INDEX  FOR  BLUE  FORCE:  EIGHTH,  HEAVY:2 
RFRCTP  INDEX  FOR  RED  FORCE:  L1GHT=1,  HEAVY=2 
UPSTR  INOfX  FOR-  DEFENSE  POSTURE:  PREPARED=1, 
hasty::,  AMbUSHED:3 

BLUE  FORCE  CENTROID  IMAX  IS  iOGO  METERS) 

THE  FOLLOWING  EXPLAIN  THE  SUBSCRIPTS  FOR  TACA»I,J) 

IH  ATTACKING  LIGHT  CATEGORY  WEAPON 

1=2  A  HACKING  HEAVY  CATEGORY  WEAPON 

jrl  POINTER  TO  lEFtNDER  WEAPON  CATEGORY  WHO  INITIATES 
UCTICAL  MODE  CHANGE  FOR  1 
Jt2  OIS'ANCE  FROM  DEFENDER  TO  ATTACKER  AT  WHICH 
lACTICAL  MODE  CHANGE  OCCURS. 

J--3  PERCENTAGE  OF  1:2  TYPE  WEAPONS  THAT  GOES  INTO 
UCTICAL  MODE  CHANGE.  FOP  1:1  TYPE  WEAPONS  ALE 
•ROOP  CARRIERS  WILE  DISMOUNT  TROOPS 


LJMEN'ION  TACA(2,3) 


bfRCTP  : 
RfRCTP  - 
PSTR  : 


8  9'->. 

5C  . 

51C. 

s:d. 

53  '.  If 

58  .  C 

55  '. 

5t  . 

5  ■'  . 

58r, 


UU  IE  I :j  ,2 
TACAt  ]  ,  1  )  :  1 
lACA)  i,.  l  :300 
T  aCAl  1 ,  H  :  0.33 
CONTINUE 

R I  TURN 

DEBUG  SUBCHK 
*•1  1 
E  ^U 


N  6  3  IbANK  n  uBANK 
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SIF  lEO 


51F  lED 


OIAHPUBLISH  .niKiCHR 
0*I/01/P2-10;33ID,1 

100.  c  *♦♦♦♦«♦  *♦♦♦•♦♦♦♦♦♦♦♦♦♦  SUBROUTINE  HINCHR  »♦*♦♦*»*♦♦■#♦♦♦*♦*♦*♦♦* 

no.  c 

K-P.  C 

nr.  c 

mo.  SUBROUTINF  HINCHR  (A  MF  LO  tFHNFLO  .BHNFLD  lOFCWC  tOF  RC  .AHLS  K  ) 

150.  C  THIS  SUBROUTINE  REQUESTS  HINEFIELD  INFORMATION  FOR  THE 

160.  C  OEFENOINe  FORCE  FROM  THE  GAMER 

no.  C 

180.  C  AHFEOill  INDEX  FOR  PLATING  MINEFIELDS:  NO:Q,  YES  =  1 

ISO.  C  AHFLOm  MINEFIELD  WIDTH 

200.  C  AmFLD(3I  minefield  FRACTION  NOT  BYPASSED 

210.  C  AtFLDIYI  FRACTION  OF  ATTACKING  FORCE  ENTERING  MINEFIELD 

22C.  C  FMNFLD  LOCATION  OF  FRONT  EDGE  OF  MINEFIELD 

230.  C  BMNFLO  LOCATION  OF  BACK  EDGE  OF  MINEFIELD 

ZRO.  C  AMLSRdI  MINEFIELD  LOSS  RATES  FOR  ATTACKING  WEAPON 

?50.  C  CATEGORY  TYPE  1=1, 

260.  C  DISMOUNTED:!  t  H0RTARS:2«  LlGHT:3i  HEAVVrt* 

270.  C  OFCUCdiJ)  DISTANCE  FROM  FORCE  CENTROID  J  =  l(2  TO  WEAPON 

280.  C  CATEGORY  l:l,<tt  BLUE:It  RED:2» 

2Sr.  C  OlSMOUNTEOn*  M0RTARS:2,  LIGHT:’,  HEAWYrM 

300.  C  DFRC  INDEX  FOR  DEFENDING  FORCE:  BLUE:],  RED:2 

31 C.  C 

320.  C 

32  5.  .  COMMON/REEDX  JOAYl  ,X  I  NX  ( <i  I  ,  1 CA  RD  (  2r  I  ,  I H  Y ,  IHN  ,  IH  D,  1 H  Y  ES  ,  I  HNO 

32  S.  C 

33r>.  DIMENSION  A  MFLD  <  *«  I  ,0FCUC<  S  ,  2  I ,  AMLSR  I  4 ) 

3‘*0.  C 

3*15.  C 

35:.  r 

36V..  C  1MTJALI2E  MINEFIELD  LOSS  RATES 

37r.  1  AHLSR  tl )  :  0.  10 

3ro,  AMLSRI2I  :  O.lM 

3S0.  AMLSRni  :  0.1** 

MOO.  AHLSR (Ml  :  0.  1M 

MIC.  C 

M2C..  10  PRINT  1000 

M30.  ICOO  F0RMAT(1X,MS  the  defender  using  mines  in  the  2tO-Mno  METER*, 
MMIJ.  1*  RANGE  BAND?  *1 

•150.  CALL  REEDAIIANS) 

M70.  IF (IANS .CO.IHYl  THEN 

M8C.  AMFLOdI  :  I .  E 

M9C.  ELSE  iFdANS.NE.lHY  .AND.  IANS. NE. IHN)  THIN 

5()G.  GO  TO  1C 

Sn,  ELSE 

52P.  RETURN 

53C,.  END  IF 

5**  0.  C 

550.  20  PRINT  1010 

56l.  1010  FORMAT! IX , ’ENTER  WIDTH  OF  MINEFIELD  IN  METERS’) 

57C.  CAIL  REEOM 

575.  AMFLD)2 )  :  XINX (1  I 

580.  1F)AHFL0(2 I .LT .0  .OR.  AHF L D (2  I .G T . S SS S )  THEN 

5SC.  60  10  20 

600.  END  IF 

61  r.  c 

62L.  30  PRINT  1020 

630.  1020  FORMAT!  IX  ,  ’ENTER  FRACTION  OF  MINEFIELD  NOT  eYPASSEU  BY’, 

EMC.  1*  ATTACKER  ’) 

65L.  CALL  REEOM 


SIFIFO 
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SIFIED 


65S. 

APFLD«3J  :  XlNXIll 

66G. 

IF  iAMFlC(3 l.Ll.C  .OR.  AMFLD  131 .CT.l .0 )  THEN 

tl'. 

GO  10  5’: 

m 

CD 

END  IF 

69'  , 

C 

7!  D« 

4C 

PRINT  1030 

71 

1Q3U 

rORHATI IX , *UHAT  FRACTION  OF  THE  ATTACKING  FORCE 

72  D« 

IMHE  HlNEFIELDr’l 

72C.. 

Call  PE ID4 

735. 

AHFLD«41  =  XINXIll 

74.'  . 

1F(AHFLU(4  I.LT.O  .OR.  AMFL  D  14  1  .  G  T .  1  .C  i  THEN 

75  C. 

G'  10  4r 

7t  , 

END  IF 

7  7-'. 

C 

76  . 

PRINT  1D4D 

79 

1  (’,4  L 

FORMATnx.'DO  YOU  WISH  TO  CHANGE  INPUTS?*! 

6 :  c: , 

CALL  REEDAdANSI 

81 ; . 

IF  flANS  .EO.IHYI  THEN 

82  c. 

GO  10  1C 

83  ■ , 

END  IF 

fu  . 

r 

V 

85 

c 

FIX  FRONT  AND  REAR  EDGES  OF  THE  MINEFIELD 

8tr, 

FHNFLD  -  400  ♦  OFCWCll.OFRC! 

r7C. 

BMNFLO  :  2CQ  ♦  DFCWCf 1 tOF RC 1 

88  . 

c 

89  . 

RETURN 

0. 

DEBUG  SUBCHK 

-.1  . 

A1  1 

92  . 

1  ND 

27'-  IbANK  143 

Dk-ANH  3G  COMMON 

3-45 


SlFlf  L' 


SIFIEO 


D1AMPUBLI5H .HNLSS 

"  io“'“‘c«-««««’*****”**** 


lAO. 

1^;'  . 

If’. 

17  . 
160. 

19  . 
200, 
210. 

22  0. 
23P. 
29r, 
250. 
2fcC. 

2  7(>, 
280, 
290. 
3i>0, 

31 

320. 
33  . 
390. 
35  '  . 
3(0. 
37D. 
38''. 
390. 
9CC. 

91 

92  . 
930. 
9t* 

95''. 

9(0. 

9  7 

98!'. 
99  0. 
5110. 
blG. 
52!?. 
531'. 
59  0. 
’’5 

5(0. 
57  ’. 
58':. 
59  0. 
(TO. 
(10. 
(2  . 
(30. 
(9'’. 
(5'  . 
(( 

67''. 

(60. 


COBROUI INE  MNLSS«AMFL0»AHLSR,AHDTH,DSlBRiFHNFLD.8MNri J, 

j’  XCHR  .)!WPN*0)tFXWP  .XMNLS  5) 

THIS  SUBROUTINE  COMPUTES  ATTACKER  LOSSES  FROM  OEFENPER 

minefields 

AWOTHIltJ!  CORRIDOR  WIDTH  FOR  ATTACKER  FOR  WlAPON  CATEoCRY 
1=1,9  AND  IN  RANGE  BAND  J=1.5; 

01 SMOUNTED;  1.  M0RTARS:2,  L1BHT=3,  HLAVY.9; 
0-203:1,  200-900=2,  90D-t500:3  ,  (00-600=9, 

A'-FLOni  1N0E»°F0R  OLFENOER  PLAYING  MINES:  N0:1,  YES  =  2 

AkFL0(2I  MINEFIELD  WIDTH 

AvFinni  MINEFIELD  FRACTION  NOT  BYPASSED  , 

AmFLD«9  1  FRACTION  OF  ATTACKING  FORCE  ENTERING  MlNLFluLD 

IJnU^I.JI  mine  losses  TO  WEAPON  TYPE  I  IN  TACTICAL  MODE 

OyyfH  ATTACKER  POSITION  RELATl  »(E  TO  THL  FRONT  DGE  OF 

THE  MINEFIELD 

Q5,yB^  ATTACKER  POSITION  RELATIVE  TO  THE  RIAK  LOGE  OF 

the  minefield  . 

pur  PERCENT  TERRAIN  COVERAGE  OF  THE  MlNLFlELu 

DSTBH  DISTANCE  BETWEEN  RED  AND  fO^CE  CENTROIDS 

OXFXWPTI.JI  DISTANCE  FROM  X  FORCE  CENTROID  TO  X  FORCE 
WEAPON  TYPE  I  IN  TACTICAL  MODE 
XCHril,9l  WEAPON  CATEGORY  FOR  X  FORCE  WEAPON  J' 

dismounted:!,  M0RTARS:2,  LIGHT:!,  HLAVV-9 
FNNFLO  LOCATION  OF  FRONT  EDGE  Of  MINEFIELD 

8MNFL0  LOCATION  OF  BACK  EDGE  OF  MINEFIELD 


DIMENSION  AMFLD(9l ,AMLSRl9l,AWDTH|9, Si ,XMNLSS  »1D,2>, 
I  OXfXWP<lC,ri  ,XCHRnO,  5l,XMPNnO,3) 


CHECK  FOi  MINE  lELD  PARAMETERS 

IFTAHFLD n  l.E C.U  .OR.  AMF LO  1 9  1 . E 0 .C  1  THEN 
RETUR^ 

END  IF 

2ER0-0UT  PAST  MINEFIELD  LOSSES 
V  AR=0 

CALL  INIT1<XM)NLSS,VARI 

CHECK  FOR  ENTRANCE  INTO  MINEFIELD 
DO  30  1:1,10 
DO  9C  J:lf2 

IF  IXUPNI 1 ,J« 1 1 .GT .01  THEN 

OXWFM  :  USTBR  -  OXFXWPHiJl  "  FMNFLO 
DXWBM  =  OSTBF  -  DXfXWP»l,J)  ”  BMNFLO 
IF lOXWFH.LE.C  .AND.  DXWBM.GE.Ul  THEN 

CALCULATE  MINE  LOSSES 

IF  TAWOTHI  XCHRU  »  91 ,  1 1  .GT.CI  THEN 

PCV  =  AMfLOI21  ♦  AHFLDT31  J  AWDTH  1 XCHR  H  ,  9  1  , 1 1 


«;TFYFn 
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SIFIED 

t9r’. 

XMNLSSUiJi  -  XMPNII,J«  11 

7PO. 

]  >k  AKLSRIXCHRd  (<1)1 

7:a. 

Ewr  IF 

72 

E'  D  IF 

73'  . 

E'iO  IF 

7«<'  . 

*<0 

CON  TINUE 

75  . 

.  sr 

CONlINUf 

76 

c 

77  . 

RETURN 

78  J. 

DIBUC  SUBCHK 

7 

M  1 

6  n. 

tNU 

273  1  3ANK  lb  OBANM 


AMfLOI4l 
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SIFIED 


OIAHPUBLlSH.nOVIN 
R1  D^/Ol/ 62-10:33  fO  ,J 


ICO. 

C  SUBROUTINE  MOVlN  v.******»«r***«i*#»*#i«**^ 

no. 

C 

12^.. 

C 

1  3n, 

C 

1<(C. 

SUBROUTINE  MOVI N« lOBS ,I OPN , KK  2 7 ,KK 20, BM VRT , RM V RT ,bUT CT ,RUTCT J 

ISO. 

c 

16^'. 

c 

THIS  SUBROUTINE  LOADS  BLUE  MOWEMENl  RATES  AND  DETECTION 

170. 

c 

DATA  AND  RED  HOVEHENT  KATES  AND  DETECTION  DATA  FROH 

lec. 

c 

f-ANDOH  ACCESS  FILES  27  AND  20 

is:. 

c 

2<''0. 

c 

lOBS 

POINTS  TO  THE  DAT  TYPE;  IzCLEaR,  2:MCHT, 

.1  . 

c 

3  zObSCUkEO 

220. 

c 

lOPN 

POINTS  TO  TERRAIN  TYPE  IzOPEN,  2ZCL0SED 

2  50. 

c 

»‘H27 

POINTER  FROM  MOVEMENT  RATE  FILE 

2«''. 

c 

AK2C 

POINTER  FROH  DETECTION  UlC 

250. 

c 

BMVRT  (A  ,B  1 

MOVEMENT  RATE  FOR  BLUE  FOPCE  BASED  ON 

260. 

c 

hEAPON  CATEGORY  A  11 ZDI SMOUN T ED  , 

27r. 

c 

2ZH0RTARS,  3ZL16HT,  SZHLAVYl  AND 

28  0. 

c 

TERRAIN  TYPE  3  llzOPEN,  2zCL0SECl 

2S0, 

c 

RHVOT  (A  ,8  1 

MOVEMENT  RATE  FOR  RED  FORCE  BASED  ON 

•00. 

c 

k'EAPON  CATEGORY  A  ISEE  ABOVE) 

310. 

c 

bDTCT (1  (JiKl 

BLUE  hEAPON  DETECT  TlMEb  AQAINSI  RED 

•20. 

c 

TARGETS  BASED  ON  TARGET  EXPOSURE  ! 

33  . 

c 

IIZVEHICLE  EXPOSED,  2ZVEH1CLE  DtFILADE, 

3<)0. 

c 

1  3zS0Ll)IER  EXPOSED,  SZ!jOLDlEH  DEFlL*Eir), 

350. 

c 

BLUE  WEAPON  SENSOR  P  llzEYE,  2Z0PT1CAL 

360. 

c 

SIGHT,  5ZTHERMAE  SIGHT,  SzlMAGE  INTEN- 

37-'. 

c 

SIFIERI.  AND  RANGE  BAND  K  IDZ1-2CC, 

3ec. 

c 

2r2QO-SOO,  izS00“60D,  S:6PO-bOO, 

3SC. 

c 

szeoo-iooo) 

•(TO. 

c 

RDTCT II ,J,K) 

RED  WEAPON  detect  TIMES  AGAINST  BLUE 

SI 

c 

TARGETS  BASED  ON  TARGET  EXPOSURE  T, 

S2C. 

c 

RED  WEAPON  SENSOR  B,  AND  RANGE  BAND  K 

S30. 

c 

1  -EE  ABOVE  1 

c 

S5n, 

c 

S6  . 

DIMENSION  BMVRT  IS  ,2  l,*M4VRim,  21  .liPTCT  1 S  ,  S ,  b  1 ,  H  DT  Cl  1  S,«4  ,5» 

S7G. 

c 

sfr  , 

c 

MS'/. 

c 

5f  0. 

c 

SELECT  POINTER  TO  PFOPER  MOVEMENT  RATE 

510. 

DEFINE  file  2 71 6  *  8 ,U, K 27 1  ,2D I 3U , 1 6 , U , K 20 1 

‘2C. 

•<27:i  lOf  N- 

n*2«i 

530. 

RCAD  (27*K 

27IIIBHVKT  ll,Jl,lz  l,M),j:l,2) 

5S  . 

READ  127  •K27HIRMVRT  1 1  ,  J 1 , 1 ::  1 ,  S )  ,  jz  ) ,  2  | 

55  P. 

c 

56  •  . 

c 

SELECT  POINTER  TO  PROPER  DETECTION  FILE 

570. 

1 

K2L'Z|  loeS- 

1) via«i 

SfO. 

C.O  10  Kzl  , 

5 

5sn. 

READ  l2C*K2i:i  IIBDTCTIl  ,J,K)  ,]zl,M),J  =  l  ,<4l 

CONTINUE 

tr  . 

c 

620. 

00  20  hZ  1  , 

ty 

6  3D. 

read  120 

lIRDTCTI]  ,J,K1  ,lzi  ,vi, 

6SP. 

2  L 

CON  UNUE 

t5 

c 

t6r. 

CLOSE  12  ul 

67Q. 

CLOSE  «2  71 

68  P. 

KK2  7ZM27 
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IDOt  c  >»♦♦♦♦♦♦♦♦♦♦•♦♦*♦♦♦♦*♦• 

no.  .  c 


SUBROUTINE  MVRT  ♦♦♦♦♦♦♦♦****>»****»**’<f* 


J?0. 
13'’. 
IHl, 
150. 
leo. 
nr, 
18C. 
ISO. 
200. 
21  r. 
220. 
230. 
2‘»0. 

2  50. 
250. 
27'  . 
280. 
290. 
300. 
21  f . 
32  0. 
330. 
3Mr. 
350. 
360. 
370. 
380. 
390. 
900. 
910. 
92  0. 

9  3  0. 
990. 
95  0. 
96C. 
970. 
98  . 
99^. 
510. 
51'. 
52-  . 
53U 
590. 
550. 
560. 
570. 
58  0, 
590. 
600. 
610. 
620. 
6  20. 
690, 

6b'  . 
66  '  . 
67'. 
68  0. 


SU8R0U1  INE  MVRT  IXOV  WTH  ,  XDF  A  T ,  XWORW  i  TRNTP  .  XCHR  ,)l WHN  » 

]  XHVRT«XWPNVR) 

THIS  SUBROUTINE  DETERMINES  XWPHVRIl.Jli  THE  MOVEMENT  RATES 
FOR  X  FORCE  WEAPON  TYPE  I  IN  TACTICAL  MODE  J=li2 

XOVWTH  INDEX  FOR  X  FORCE:  1:N0T  IN  OWERWATCH, 

2:1N  OVLRHATCH 

tQfHJ  INDEX  FOR  X  FORCE;  j:DEFENSEi  2:0FFENSE 

)(^,ORii  INDEX  FOR  X  FORCE:  l  =  ENGAGEi  2:wITH0RAW 

XCHRn.91  CATEGORY  FOR  X  FORCE  WEAPON  TYPE  1: 

IrOISHOUNTED,  2:M0RTARS|  3:L1GH1,  9:HLAWT 
XWPNIl.J'*]!  NUMBER  OF  X  FORCE  WEAPONS  IN  TACTICAL 
MODE  J=1.2 

XMVRTU.Bl  MOVEMENT  RATE  FOR  X  FORCE  BASED  ON: 

AZWEAPON  CATEGORY,  d:TERHAlN  TYPE 
tKNTP  INDEX  FOR  TERRAIN  TYPE:  UOPEN,  2rCL0?t 

D1  MEN  SI  ON  xCHRnUt5»,XWPN<lD,3>,XMVRTI9,21,XWPMVRnC»<;> 


IHXWDRH.EQ.  n  then 
VAR  :  -J 

ELSE  IF TXOFAT.EO. 1 1  THEN 
VAR  =  0 
ELSE 

VAR  :  1 
EivO  IF 

DO  1C  J=1 i2 
DO  2(:  1=1  «io 

1  F  T  XWFNTl,  .GT  .01  THEN 

XWPMVRU.JI  =  XMVRTIXCHRi  ],A|,TRNTPJ  *  VAR 
ELSE 

XwPMVRUfJl  :  C 
END  IF 
CONTINUE 
CONTINUE 

LO  30  1=1.10 

IFT  YCHR  I  1 .91  .  t(3.9  J  THEN 
1  FT  XWi'NlI ,  3  I  .GT  .  01  THEN 
IFIXOVVTH.EO.  1  then 
XWPMVRl 1.21  =  0 
END  IF 
END  IF 

ELSE  IF1XCHRI1,91.E0.11  THEN 
lFlXW^Nn,2).GT.0l  then 
XWPMVRll.ll  =  C 
END  IF 
ELSE 
END  IF 
CONTINUE 


r  •»  r  f  r  n 


IFIEO 

e9G. 

C 

TOC. 

RETURN 

71'. 

DEBUG 

72". 

AT  1 

73  f. 

END 

223  IBANK 

55  DBANK 

SU6CHH 


3 


SIFIED 


OlAHPUeLl SH .NDIST 
R1  04/0l>  B2-10:  i3  «Q  ,1 


100. 

c  SifiROUllNE  NDISI  ♦♦♦♦♦♦*♦♦«♦♦♦♦*♦#«♦♦ 

110. 

c 

120. 

c 

130. 

c 

1<(U. 

SUBROUTINE  NOI  S  T  I DS  TBR  «  XUPN  ,)l  CHR ,  XhPM  VR  «XSPM0& .DXFXWP  1 

150. 

c 

IfcO. 

C 

THIS  SUBROUTINE  RECALCULATES  OXFXWPdtJl*  THE  DISTANCE 

170. 

C 

FROM  THE  X  FORCE  CENTROID  TO  X  FORCE  WEAPON  TTPE  I 

IN 

180. 

C 

TACTI CAL  MODE  J=1  ,2 

19  (\ 

C 

193. 

c 

OSTBR  DISTANCE  BETWEEN  RED  AND  BLUE  CENTROIDS 

200. 

c 

XWPNn«JM)  NUMBER  OF  X  FORCE  TYPE  WEAPON  TYPE  I  IN 

210. 

c 

TACTICAL  MODE  J= I • 2 

22  0. 

c 

XWPMVRU.JI  l-^YEMENT  RATE  FOR  X  FORCE  WEAPON  TYPE  1 

IN 

2  30. 

c 

TACTICAL  MODE  J=}(2 

2<lQ. 

c 

XSPHOGll.JI  MOVEMENT  SUPPRESSION  0E6RA0AT10N  FOR  X 

250. 

c 

FORCE  WEAPON  TYPE  I  IN  TACTICAL  MODE  J=1 

.2 

2eo. 

c 

XCHRn,9l  X  FORCE  WEAPON  TYPE  1  CA1E60R1ES; 

270. 

c 

DlSMOUNUOn,  M0RTAfiS:2i  L16HT:3,  HEAVY: 

9 

280. 

c 

29f . 

c 

3G0. 

DIMENSION  XWPN(10«31«XWPHVRI  10t2l,XSPMDE^n0,2  )i 

310. 

1  DXFXWPnOi2l  ,XCHR|  10«5) 

’20. 

1 

33!  . 

c 

3*10. 

c 

CALCULATE  MINIMUM  ISUPPRESSION  X  MOVENENl  RATtl 

350. 

1 

2 MIN  :  1000 

3<0. 

DO  10  j:i,2 

370. 

00  20  1:1,10 

380. 

IFIXWPNU  1  1  .6T  .01  THEN 

39  0. 

IF  (XCHRU,9l.NE.l  .OR.  J.NE,!)  THEN 

90  0. 

IFtXWPMVR  n,JI  .NL  .01  THEN 

<(]C. 

2M1N  :  AMINUZMIN.XWPMWRI  1  ,J)*n-XSPMDG  II 

,jn  1 

920. 

END  IF 

93'  . 

END  IF 

99  ('. 

END  IF 

95'.. 

20 

CONTINUE 

9t  '. 

10 

CONTINUE 

9  7!'. 

c 

961’. 

IF  tZMlN.EC.lOOO  )  THEM 

990. 

RETURN 

sro. 

Ef.D  IF 

51  f  . 

c 

521. 

c 

CALCULATE  NEW  03S1ANCES 

53C. 

DO  30  J:i  ,2 

590. 

DO  9i  1:1 ,1 C 

550. 

I  F IXWPNf 1 ,J« 1 1 .bl .01  THEN 

58  0. 

IF IXCHR 1 1 ,9 1  .NE .  1  .OR.  J.NE.ll  THEN 

57f. 

IF IXUPHVR 1 1 ,J1 .NE  .01  THEN 

560. 

DXFXWPII.JI  :  OXFXWPII.JJ  «  2K1N 

59  r. 

END  IF 

600. 

EL  SE 

61  '  . 

OXFXWPII.JI  :  -V  9  99  99  9 

62  i. 

EKO  IF 

630. 

ELSE 

69'-, 

DXfXWPITfdl  :  -9999999 

650. 

END  IF 

9  0 

CONTINUE 

tiu 

3'_ 

CONTINUE  3  g2 

c  T  r  Tr  n 

SIFIEO 


680. 
690. 
700. 
'  710. 

730. 
790. 
750. 
;  76  0. 

770. 
7tC. 
790. 
I  800. 
610. 


C 

C 


60 

50 

C 


CHECK  FOR  0VCRRUNN1N6  OPPONENTS 
00  SO  J=lt2 
DO  60  I=I«10 

IFIOXFXUPIXfJt.GE.OSTBRI  THEN 
OXFXUPfttJI  r  OST0R  -10.0 
END  IF 
CONTINUE 
CONTINUE 

RETURN 
DEBUG  SUBCHK 
XT  1 
END 
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PI 


CIAHr^veLlSH.MUHTGT 
04>01/ 82-10x3310  *1 


100. 

no. 

12C, 
13C<. 
WO.- 
150. 
UC. 
1:70. 
!80. 
I9C. 
200. 
210. 
220. 
230. 
2«I0. 
250. 
260, 
270. 
280. 
290. 
300. 
310. 
320, 
330. 
390. 
3SQ. 
3«Q. 
370. 
380. 
390, 
900. 
910. 
92C. 
930. 
99  0. 
950. 
96  0. 
97Q. 
980. 
99  0, 
500. 
510. 
52  0, 
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C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

90 

30 

20 

10 

C 


SUBROUT INE  NUMTG7  tX  VBKW , YWPN.PC VVX2 ,VSPFD6  t TOT YT6 1 


THIS  SUBROUTINE  CALCULATES  TOTYTGd.JI* 
FOR  X  FORCE  WEAPON  TYPE  1  XN  TACTICAL 


TOTAL  T  TARGETS 
NODE  J=l,2 


YWPNIN|L«}} 

PCTVX2IK|N«LI 


XTPNWtl ,N. Jl 


YSPF06(K,L1 


CONTAINS  NUHBER  OF  V  FORCE  WEAPON  TYPE  K 
IN  TACTICAL  MODE  1=1,2 

PERCENT  OF  Y  FORCE  WEAPON  TYPE  K  IN  TACTICAL 
NODE  L=I,2  VISIBLE  TO  X  FORCE  WEAPON  TYPE  N 
OF  WHICH  N=11»2Q  ARE  IN  TACTICAL  NODE  2 
SINGLE  SHOT  PROBABILITY  OF  KiLLtSSPKI 
OF  X  FORCE  WEAPON  TYPE  I  IN  TACTICAL 
NODE  J=l,2  AGAINST  Y  FORCE  TARGET  TYPE  H 
OF  WHICH  N  =  il»20  ARE  IN  TACTICAL  HOPE  2 
FIRE  SUPPRESSION  AGAINST  Y  FORCE 
WEAPON  TYPE  N  IN  TACTICAL  NODE  1=1,2 


OIHENSION  XYPKN(|0,20,21,yWPNI  10,31 ,PCYVX2 < 10 ,20,2  I 
it  ySPFO&nO,2l,TOTYTGnO,2l 

DO  10  4=1,2 
00  20  1=1,10 
00  30  1=1,2 
DO  90  K=l,10 

IFUYPKW(ItK«IL-ll*10,4I.GT,0l  THEN 

TOTVTGIUJI  =  PCVVXZlN,I«tJ-llA10,L  I  A  YWPNIK,L4li 
I  «  n>ySPF06IK,LI*0.33)  «  totytgii.ji 

END  IF 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

DEBUG  SUBCHK 
END 
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ICQ. 

Ci^,xf^*4«******i^*m*4***  bt'BfiOUTINE  PCTBL 

11  . 

C 

12'-. 

1  '  . 

( 

c 

I**'. 

SUBROUT INE  PCTB L iBWORUi RwORW, OF RC .PCR  VBE,PCRVBb,PCRWVB, 

lb  . 

1 

PCBVRE«PCBVRb,PCBbVR .PCRVBC .PCBVRC 1 

icr. 

c 

17: . 

c 

1H1S  SUBROUTINE 

DETERMINES  WHICH  TWO  OF  THE  SIX 

IOC. 

c 

VISIBILITY  TABLES  TO  USE  IN  THE  ATTRITION  LOOP 

IbC. 

■* .  f  1 

c 

r 

3AI-fD  ON  THE 

VALUE  OF  XUIHDR  AND  YUTHOR 

21  . 

L 

c 

bWORU 

INDEX  FOR  BLUE  FORCE:  1:ENGAC>E«  2:WITH0RAb 

22C. 

c 

R  •<  0  R  b 

INDEX  FOR  RED  FORCE:  KENGAGEi  2=bITH0RAH 

2  iC. 

c 

Of  RC 

index:  irBLUE  DEFENDSt  2=RE0  DEFENDS 

2  <4  0. 

c 

PCRVBEl i  ,J,K1 

FRACTION  OF  RED  FORCE  WEAPON  CATEGORY  I 

2‘'0. 

c 

VISIBLE  TO  BLUE  FORCE  WEAPON  CATEGORY  J 

2(-C. 

c 

IN  THE  XIH  RANGE  BAND  DURING  ENGAGEMENT 

27C. 

c 

PCBVREI I , J,K 1 

FRACTION  OF  BLUE  FORCE  WEAPON  CATEGORY  I 

2  f '  . 

c 

VISIBLE  TO  RED  FORCE  WEAPON  CATEGORY  J 

29 

c 

IN  THE  KTH  RANGE  BAND  DURING  ENGAGEMENT 

3C0. 

c 

PCR  VBW( 1 1 J  |K) 

FRACTION  OF  RED  FORCE  WEAPON  CATEGORY  I 

"1C. 

c 

VISIBLE  10  BLUE  FORCE  WEAPON  CATEGORY  J 

72.,. 

r 

IN  THE  XTH  RANGE  BAND  DURING  BLUE  FORCE 

’3  . 

c 

WITHDRAWAL 

3**  . 

c 

PCbUVRI 1 ,J,K  1 

FRACTION  OF  BLUE  FORCE  WEAPON  CATEGORY  I 

3'-C. 

f 

VISIBLE  TO  RED  FORCE  WEAPON  CATEGORY  J 

3£.<. 

c 

IN  the  KTH  range  band  DURING  BLUE  FORCE 

371-. 

c 

WITHDRAWAL 

38  . 

c 

PCRUVBt 1  .UtKI 

FRACTION  OF  RED  FORCE  WEAPON  CATEGORY  1 

39  0. 

c 

VISIBLE  TO  BLUE  FORCE  WEAPON  CATEGORY  J 

<400. 

c 

IN  THE  KTH  RANGE  BAND  DURING  RED  FORCE 

<110. 

c 

WITHDRAWAL 

«2  r. 

c 

PCBVRbt  I  ,U,K) 

FRACTION  OF  BLUE  FORCE  WEAPON  CATEGORY  I 

<431  . 

c 

VISIBLE  TO  RED  FORCE  WEAPON  CATEGORY  J 

<4‘«C. 

c 

IN  THE  KTH  RANGE  BAND  DURING  RED  FORCE 

<4  ft:. 

c 

WITHDRAWAL 

«( ' . 

c 

<|7'-. 

r 

<48  . 

01  HEN  SI  UN  PCRVBEm  •<4«5I  tPCRVBb  l<4,*i,bl  tPCRbVB  1  M,<4,5  I 

<4'iL. 

1  1  PCBvrE<i«,V,5l«PCBVRb<i4,<4,5)|PCBbVR  l<4|<4,5  ) 

‘■r  C. 

M  ■  . 

c 

2,  PrRVBC(<4,<«,5ltPCBVRC(*4.<4,5) 

'  2r. 
b3  . 

< 

inOWORb.EQ.P  . 

AND.  RW0RW.EQ.21  THEN 

5‘4C. 

1 FIOFRC.EQ.l » 

THEN 

5b  -  . 

1 

RUDRbr  1 

be  . 

ELSE 

57  . 

BbORb  r 1 

EUD  IF 

59  . 

END  IF 

e:  0. 

c 

ti  . 

IF  iebDRli.r.L.  1  . 

AND.  R'UORW.EQ.l)  THEN 

62  C. 

00  !C  l:l,<4 

e  jc. 

DO  2  0  j:  1  , <4 

bH  . 

DU  -O  h:J 

.b 

65  . 

PCRVBCn  lUiK  trPCRVBEn  1  JfK) 

66  . 

PCBVRCt  I,J,K>:PCBVRCn  ,  J,K) 

67'  . 

30 

CONT  INUE 

6  f  C. 

20 

CONTINUE 

3-55 

SIFIEO 

690. 

10 

CONTINUE 

700. 

C 

7J0. 

LISE  IF  (BWORW.E0.21  THEN 

72  0. 

DO  **0  1  =  1, *1 

73C. 

DO  50  J=l,9 

7*10. 

DO  60  K:!  ,5 

750, 

PCKVBCI  IfJ.KKPCRVBWIliJtKI 

76  r. 

PCBVRCI I,JtKf:PCBUVR<I,JtKI 

77  C, 

60 

CONTINUE 

78C. 

50 

CONTINUE 

79  0, 

*»0 

CONTINUE 

eoo. 

C 

ei 

LLSE 

82  0. 

DO  70  1  =  1  i*( 

830, 

DO  80 

6*)C, 

00  90  K=i  ,5 

85' . 

PCRVBCI  ],J|K  UPCRNU8I  1,  J(KI 

86 

PCBVRCI  I.JtK)=PCBVRWI I, J,K) 

87  '. 

90 

CONI INUE 

88 

80 

CONTINUE 

89C. 

70 

CONTINUE 

9:'0. 

END  IF 

91  r:. 

C 

92  0. 

RETURN 

930, 

DEBUG  SUBCHK 

9«|[3. 

1 

9'-C, 

I  NO 

N  3<«*i  IBANK  87 
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S  IF  TFf) 


jlFlfD 


DIAMP UBLISH .PCfcPWS 
Jl  0*»/Dl/f2-10:33lC,> 

100«  c  **’^**<i/********v*******  SUBROUTINE  PCUPVS  **^***m*************** 

no.  c 

K  ' .  C 
13',  C 

1*4^.  SUBROUTINE  PCWP  VS  < )( CHR,  YuHR  ,PCX  V  YC  ,X  YR6B0  .PCX  V  VZ I 

IFC.  C 

le  .  C  THIS  SUBROUTINE  DETERMINES  PC X V VZ < I ,H , J I .  THE  FRACTION  OF  X 

17C.  C  FORCE  WEAPON  TYPE  I  IN  TACTICAL  MODE  J=l|2  VISIBLE  TO  Y 

l^C.  C  FORCE  WEAPON  TYPE  M  OF  NHICH  H=ll,20  ARE  IN  TACTICAL 

IS',  C  MODE  2 


2’  C.  C 

2  ID.  C 

22  G.  C 

230.  C 
ZIC.  I 
2S  ‘  .  C 

2E  ‘  .  C 

2  7C.  C 
2ef’.  c 

2SC.  C 
3C  0.  C 

31  .  ,  C 

?2C.  C 

’2'  *  C 
S'lr. 

35C. 

3(C,  C 

!7r.  C 

3{>c .  1 

3SC. 

•♦cr. 

‘42  '  .  C 

M3C. 

‘•‘iC. 

<4*  . 

'  . 

44  7  '. 

44^". 

49  .  C 

S'D.  4t) 

51'.  Zr- 

52'.  2C 

53',  10 

S4^ .  C 

E5t  . 

56  . 

57-  . 

51-  . 


XCHRn,4)  WEAPON  CATEGORY  OF  X  FORCE  WEAPON  TYPE  I: 

DISMOUNTED:!,  M0RTARS:2,  L1GHT:3,  HEAVY:4 
YCHR4H,4)  WEAPON  CATEGORY  OF  Y  FORCE  WEAPON  TYPE  K; 

DISMOUNTED:!,  M0RTARS:2,  LI6HT:3,  HEAVY:4 
PCXVYCI A ,B ,C I  FRACTION  OF  X  FORCE  WEAPON  CATEGORY  A 
VISIBLE  TO  Y  FORCE  WEAPON  CATEGORY  B 
IN  RANGE  BAND  C 

XYRGBDI ItM.J)  RANGE  BANDS  FOR  X  FORCE  WEAPON  TYPE  I  IN 

TACTICAL  MODE  J:l,2  AGAINST  Y  FORCE  WEAPON 
TYPE  M  OF  WHICH  M:ll,20  ARE  IN  TACTICAL 
MODE  2 


DIMENSION  XCHR  U0,5  I  ,YCHR  I  10 ,  b  )  ,PC  XV  YC I  4 , 4 ,5  I  ,X  YR GPU  1 10 ,20  ,2 1 
1,  PCXVYZ (10,20,2) 


DC  1C  J:l  ,2 
DO  20  l:l  ,10 
DC  3C  L=l,2 
DO  4C  k:1  ,]U 

IFIX YHGB0I1,K4(L-1)*  10,J) .EU.6I  THEN 
PCXVYZ)  I,A«(L'I1*1C,JI  :  0 
ELSE 

PCXVYZ)  I, K4|L-1)*10,J»  : 

1  PCXVYOXCHRd  ,4)  ,YCHR(K,4),XYRGB0(I  ,K4  (L- 1 )  *  10  ,  J)  I 

END  IF 

CONT  INUE 
CONTINUE 
CONTINUE 
CONTINUE 

RETURN 

DEBUG  SUBCHH 
AT  1 

Et  0 
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SIFIED 


OIAHPUBLISH  .PKIN 
R1  0«  >01/  82-10:  3310  ,1 


IGO. 

SUBROUT INE  PKIN  (BRPK i RBPK i BCHR ,RCHR « 1 6U « IRO (KK 15 tKK 16  *NUHO, 

nQ» 

INUHRflUl 

120. 

DIMENSION  IBUf 1  Cl |lR0ilQl«PREC(25)tBRPK <10, 10.51 (RBPK (10,10 

130. 

1  ,BCHR (10,51 (RCHRI 10, 5 1,8  NAME! 10  I, RN AM  LI  101 

i*i(;. 

C 

ISO. 

C  3LR0  PK  APRA7S 

160, 

C 

170. 

DEFINE  FILE  1 S 1 30U, 26 ,U,K 1 5 1 ,  16  1  300, 2 6 , U ,K 1 6 1 

180. 

cc 

PRINT  2002,  lU 

ISO. 

2002 

FORMATIlX.'lU  *,151 

200. 

1 

DO  30  1=1  ,10 

210. 

CO  20  J:1 ,10 

220. 

LO  10  K:1  ,S 

2  3C. 

BRPK<],J,K1=-1.G 

2*»0. 

RBPK(1,J,K1=-I.C 

250. 

1C 

CONTINUE 

261. 

20 

CONTINUE 

27r. 

30 

CONTINUE 

28.'. 

C 

290. 

C  FILL  ARRA1  BRPK  UITH  BLUE  VS  RED  PK 

300. 

C 

310. 

LO  6:.  1-1  .NUMB 

32  0. 

C 

33', 

C  FIND  FROPER  BLUE  WEAPON  ON  PK  FILE 

3Mf  . 

C 

3S0. 

Kl5r51« (IBUI 11-11*5 

360. 

C16:k15 

37C. 

C 

38;. 

C  READ  IN  BLUE  RECORDS  FOR  S  RANbES 

390. 

C 

•JCO. 

CO  SO  K:1 ,5 

Rir. 

IFIlU.ECi.n  GO  TO  3  5 

‘<20. 

REAOIIS  *K1SINAM], (PRECIL l•Lrl,2  51 

‘13  0. 

to  TO  37 

‘IMO. 

35 

RLA0I16  *K16  1NAH1,IPRECIL1,L  =  1,25} 

RSO. 

C 

•<6  !  . 

C  SELEC1  PROPER  RED  WEAPON  VULNERABILITIES 

‘•70. 

C 

*<80. 

CC 

PRINT  2001  ,  NAMl  ,1  PRECILl  ,L;  1,  I'd 

*490. 

2  001 

FORMAT  (IX  ,AA,14(F5. 21 

SCO. 

37 

DO  4(0  .j:i,NUMR 

51  r. 

IPTriRD (J1 

520. 

IF  (PREC  (IPT  1  ,NE  .G.O  1  BRPK  (  1  ,J  ,K  UPREC  ( 1  PT  1 

530, 

4(0 

CONTINUE 

5‘«0. 

50 

CONTINUE 

55 

60 

CONTINUE 

56''. 

C 

57r'. 

C  FILL  ARRAY  RBPK  WITH  RED  VS  BLUE 

584  . 

C 

590, 

bO  90  1=1  ,NUMR 

6C0. 

C 

6 1 

C  FIND  PROPER  RED  WEAPON  ON  PK  FILL 

62  "  . 

C 

630. 

K15:176  dUDII  1-1  1*5 

64(0. 

F 1 6  :K  1 5 

650. 

C 

66'“. 

C  READ  IN  RED  RECORDS  FOR  5  RANGES 

670. 

DO  8'  K=1 ,5 

680. 

IF  IIU.EQ.  1 1  60  TO  65 

3-58 

9 1 F ir n 

SIFIED 


6sr, 

KtA0n5  ‘Kisi  NA  Ml  iIPKEClLltL:  1.251 

7CQ. 

GO  TO  6  7 

71  t.. 

ts 

RtAOIlt "KlBl  NAM1,IPKEC(LI,L:],261 

720. 

c 

73  ■. 

C  StLECl  PROPER  BLUE  WEAPON  VULNERABILITIES 

7^'  . 

C 

75  r. 

6  7 

DO  70  J  =  1  ,NUMB 

7fc  ■  . 

IPTrieU IJJ 

770, 

IMPRECnPTt.NE.Ol  RO  PK  ( 1 «  J  ,K  U  PREC  f  1 PT  ) 

7F  . 

7C 

CONT INUt 

7S'  . 

80 

CONT  INUE 

81  a. 

90 

CONTINUE 

81  '  . 

C 

82  '  . 

C  LOAD 

1  BLUE  WEAPON  CHARACTERISTICS 

83'  . 

C 

DO  1‘'0  Ul.NUMB 

85C. 

HlSrlbUll) 

"t  1'. 

f It  15 

07". 

IF  ilU.EU.  1  1  GO  TO  95 

R8>". 

REA0U5’K15I  B  N  AHE  <  I )  .1  SEN  «  BCHR  1 1  , 2 1  ,BCHR  1 1  , 3  1  ,I  CAT  .  BCHRll.Sl 

e'.c . 

CC  TO  97 

•ICO. 

95 

REAOnt’Wltl  B  NAME  111, 1  SE  N, B  CHRU, 21, BCHRtltSI.ICAT,  BCHR  <1.51 

910. 

97 

BCHRI  1  ,n:  ISEN 

921.1, 

faCHRU,m:lCAT 

S3  . 

CC 

PRINT  1000,  BNAMEII ),IBCHRII,J)  ,J=1,5> 

SRI, 

lOL 

LOKl  INUE 

95-  , 

C 

St  . 

C  LOAD  WED  WEAPON  CHARACTERISTICS 

97'  . 

C 

sen. 

00  2; u  1  =  1  iNUMR 

990. 

K  ISriRO  111 *25 

lOCC. 

f  1 1 :k  15 

1  '10. 

IF  IIU.EO.  1)  GO  TO  ISC 

1  02  0. 

RE  A0I15  *K]  51  RNAHEI  U.lSEN.RCHRIl  ,2  1 ,  RC  HR  1 1  ,3  )  ,I  C  AT  ,R  CHR  1  1 , 5 1 

1030. 

G<  TO  ItO 

10  SC, 

15C 

R t ADI16  'Kl t IRNAMEII 1, ISE  N, RCHRIl , 21 .RCHRIl , 3) , ICAT ,PCHR 1 1 ,51 

1050. 

It- 

RCHRlI,ll:ISCN 

ICf, 

RCHRll.SlrlCAT 

1070, 

CC 

PRINT  lOOC,  RNAHEI  n  ,  IRCHRI  I,  J1  ,0:1 ,51 

r  eo. 

2'C 

CONTINUE 

lOH'. 

CLO'E  1151 

line. 

CLOSE  lit  1 

Ill  . 

KK15:t<  15 

112C. 

lOLC 

rORMATI IX ,A9 ,SF 1 J.3 1 

1 1  0. 

WU  <  :K1  t 

US  . 

RETURN 

1  15f . 

C 

DEBUG  SUBCHM  .SUBTWACE 

lU  . 

C 

AT  1 

117  . 

i  f;D 

N  311  IbAkK  518 

GbANK 
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SIF  lEO 


SIFUO 


DIAHPUBLI^H  .PKhP 
Ki  D«»/Dl/P2-10:33IO  ,l 


ICO. 

C SU8R0U11NE  PKWP  *4*i^«**#*«i»)»***#*Hi>>*i»* 

lie. 

C 

12  r. 

c 

nc. 

c 

l‘»C. 

SUBROUT INE  PKWP  <X t PK  ,XYR&B 0 tK 7PKWP ) 

isr. 

c 

lec. 

c 

THIS  SUBROUTINE  OETERHINES  XYPK WP 1 I ,M , J T ,  THE  SSPK  FGR  X 

170. 

c 

FORCE  WEAPON  TYPE  I  IN  TACTICAL  MODE  j:i,2  ACAINST  Y  FORCE 

180. 

c 

TARGET  TYPE  M  OF  WHICH  M=n',2C  ARE  iN  TACTICAL  MODE  2 

19  r. 

c 

200. 

c 

XYPKII,K,CI  SSPK  FOR  X  FORCE  WEAPON  TYPE  1  VERSUS  Y 

710. 

c 

FORCE  TARGET  TYPE  K  IN  RANGE  BAND  C 

•220. 

c 

X YRGBDT 1 ,H,JI  RANGE  BAND  FOR  X  FORCE  WEAPON  TYPE  T  IN 

270. 

c 

TACTICAL  HOOE  J  =  l,2  AGAINST  Y  FORCE  TARGET 

2‘ir. 

c 

TYPE  H  OF  WHICH  H=11,2D  ARE  TAXTICAL  MODE  2 

25r. 

c 

2  to. 

c 

270. 

DIMENSION  XYPK  1 10 1 1 0 15 1 (X YRGBO 1) 0, 20 , 2 ) . X YPK WP 1  ID ,2^  ,2  I 

280. 

c 

29  r. 

c 

300. 

1 

DO  10  j:i  ,2 

31  C. 

DO  2f  in, 10 

32C. 

DO  3C  L:1,2 

330. 

DO  MO  K= 1  ,10 

39^. 

c 

35C. 

IFUYRGBOn  ,K<a-n*10,Jl  .EQ.  tl  THEN 

36  0. 

XYPKwPn,K*<L-ll*10,JT  :  0 

37  r. 

EL  SE 

38  0, 

XYPKWPU  ,KML-11'*10,J  >:XYPK  il  ,K,X  YRGbCTl  ,KnL-l)*10,  . 

390. 

e;  0  IF 

“f  0. 

c 

91 

MD 

CONT  INUE 

M2 

30 

CONTINUE 

_  M3'. 

20 

CONTI NUE 

MMC. 

10 

CONT INUE 

M5^. 

C 

M6r. 

RETURN 

M7  '. 

DEBUG  SUBCHH 

Mfc  ■•  , 

AT  1 

M9  r , 

(  ND 

N  166  IBANK  MS 

DBANK 
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SIFIFD 


ilFIEO 


OIAMPUELISH.REMNT 


*^1 


a‘«/01/8?-10;3J  <0,1 


100. 

11  r. 

12  0. 
130. 

HO. 
150. 
UO. 
17C. 
180. 
19  0. 
200. 
210. 
22  0. 
23  0. 
2*10. 
250. 
26  0. 
270. 
2  8C. 
290. 
300. 
310. 
321.. 
33  0. 
3*10, 
35r  . 
360. 
370. 
sor, 
39  . 
400. 
410. 
420. 
43C. 
44  0. 
45(1. 
46C. 
470. 
48*'. 
491, 
SCO. 

51  r, 

52 


SUBROUTINE  REMN1  ****<>  ****** 

C 
C 
C 

SUBR0U1 INE  REHNT (XCHR,XWPN,XDHHAX,XOH ViXDHRTO  fXNUHDH, 

1  OXFXWPl 

C 

C  THIS  SUBROUTINE  M0UN1S  DISMOUNTED  TROOPS  FoR  X  FORCE 

C 

C  XTOTDH 

C  XIPTMC 

C  XCHR<I,4> 

C 

c  xwpN<i,j«n 

c 

C  XOMMAX 

C  XOHV 

C  XOMRTO. 

C  XNUMOM 

C  0XFXWP<1,JI 

C 
C 

c 

DIMENSION  XCHR 1 10 , 5 1 ,0XF XU  PI lU, 2 1 , XUPN <1 0 , 3  ) 

C 

c 

IF IXOMRTO.LE.QI  THEN 
C  00  NOT  REMOUNT 

RETURN 
C 

USE  IF  IXOMRTO.LE.XOHMAX)  THEN 

1  00  10  l:i,10 

IF< XCHR < 1,4  I.EQ.l  I  THEN 
IF<XWPN<1,3I.6T.UI  THEN 
XUPNIl,:)  :  XUPN<1,3I 
XUPN <1,31  :  U 
OXFXUP<I,n  :  -9999999 

DXFXUP<1,2I  I  -9999999 
END  IF 
END  IF 
10  CONTINUE 

XNUHOM  :  XOMRTO 
C 


TOTAL  NUMBER  OF  DISMOUNTED  TROOPS 
TOTAL  NUMBER  OF  TROOP  CARRIERS 
CATEGORY  OF  X  FORCE  WEAPON  TYPE  I; 
dismounted::!,  H0RTARS=2,  L1GHT  =  J,  HEAVY:4 
NUMBER  OF  X  FORCE  WEAPON  TYPE  I  IN  TACTICAL 
MODE  J:i,2 

MAXIMUM  NUMBER  OF  TROOPS  ALLOUED  IN  TROOP  CARRIER 
INDEX  FOR  X  FORCE:  1  :D1  SHOUNTEU  ,  2=MOUN7EO 
RATIO  OF  OISMOUNTEO  TROOPS  TO  CARRIERS 
number  of  THOOPS  THAT  MOUNT  PER  CARRIER 
DISTANCE  FROM  X  FORCE  CENTROID  TO  X  FORCE 
WEAPON  TYPE  1  IN  TACTICAL  MODE  J:l,2 


S3f  . 

54  C. 

550. 

560. 

57C. 

58C. 

59t', 

60G. 

611  .- 

62''.  20 
6  3r., 

64'. 

65  n.  c 

66  Oi  C 

670.  25 

680. 


ELSE 

DO  20  HI  ,10 

IFIXCHR <1,4  l.EO.l  I  THEN 
1 FIXUPNI I ,3) .CT .01  THEN 

XUPN<1,2)  =  XUPN<I,31  <»  XDMMAXyXOMRTO 
XUPN<I,5)  =  XUPN<I,3)  -  XUPN(I,2) 
0XFXWP<1,II  :  -9999999 

END  IF 
END  IF 
CONTINUE 

XNUHOM  :  XDNHAX 
END  IF 

CHANGE  TROOP  CARRIER  MODE 
00  30  HI  ,10 

IF<XCHR<1,4  I.EQ.3J  THEN 


3-62 


c  1  c  ir  n 


SIFIED 


690. 

IFIXWPNIl.,3). 

GE.OI  THEN 

7C0. 

.  XWPNII,?!  = 

XUPNII i 31 

71G. 

XWPNn,3l  : 

C 

72 

oxrxupdf  11 

:  DXFXHPd,?! 

73'  . 

OXFXHPI 1,21 

:  -9999999 

7<»0. 

END  IF 

75  . 

two  IF 

76 

30 

CONTiNUt 

77  .. 

C 

780, 

XOMV  :  1 

79  \ 

C 

adu. 

R8 TURN 

81 : , 

DEBUG  SUBCHK 

p?' . 

AT  1 

83  . 

f  P'D 

N  321  IBANK  <4  3  OBANK 
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SlFlrD 


SIFIEO 


OlAHPUBLISH  .REPR1 
R1  e2-l(  :i3IC,J 


IDO. 

C 

SUBROUTINE  REPRl 

lie. 

C 

12»'. 

C 

13n, 

C 

SUBROUTINE 

REPRTIlGAHTMtRBK VLSiBRKVLS , BNUM , RNUM , BUE  AO, 

150. 

1 

ROEAO,BUPN,RWP^',8DSNG,ROSNG,  BWDRW  ,RUDRW, 

UO. 

1 

BR0SUH,RR0SUH,0STKIN) 

17t.. 

C 

lac. 

C 

THIS  SUBROUTINE  PRINTS  A  01AM  BATTLE  STATUS  REPORT.  THE 

190. 

C 

REPORT  LISTS  THE  KILLER  VICTIM  SCOREBOARDS  AND  ALLOWS 

2CD. 

C 

THE  GAMER 

TO  STOP  the  game.  the  FOLLOWING  VARIABLES 

211'. 

C 

ARE  INPUT 

22 

C 

23  0. 

C 

IGAMTM 

GAME  TIME  IN  MINUTES 

2  4*'. 

C 

RBKVLSII.J) 

LOSSES  OF  BLUE  WEAPON  TYPE  J  FROM  RED  WEAPON 

250. 

c 

TYPE  1 

26D. 

c 

BRKVLSI 1 ,J1 

LOSSES  Of  RED  WEAPON  TYPE  J  FROM  BLUE  WEAPON 

2  7  0. 

c 

TYPE  I 

28  -  . 

c 

BNUM 

NUMBER  OF  BLUE  WEAPON  SYSTEM  TYPES 

290. 

c 

RNUM 

NUMBER  OF  RED  WEAPON  SYSTEM  TYPES 

300. 

c 

BOE AOII  ,JI 

total  number  of  BLUE  WEAPON  TYPE  1  IN  TACTICAL 

31  r. 

c 

MODE  J=l,2 

32  0. 

c 

RDEAOn  .Jl 

TOTAL  NUMBER  OF  RED  WEAPON  TYPE  1  IN  TACTICAL 

330. 

c 

MODE  J=l,2 

340. 

c 

BCiSNG 

BLUE  FORCE  INDEX:  ENGAGING=1,  01SENGAG£=2 

3St  . 

c 

RDSN6 

RED  FORCE  INDEX:  ENGAG1NG=1,  D1SENGAGE:2 

36  0. 

c 

b.PNdt  J«]  1 

NUMBER  OF  BLUE  FORCE  WEAPON  TYPE  1  IN  TACTICAL 

37C. 

c 

MODE  J=},2 

380. 

c 

RWPNII,J«n 

NUMBER  OF  RED  FORCE  WEAPON  TYPE  1  IN  TACTICAL 

39'  . 

c 

MODE  j:i,2 

4ro. 

c 

BWDRW 

INDEX  FOR  BLUE  FORCE:  ENGAGING:},  WITHCRAW'NG 

410, 

c 

RwDRW 

INDEX  FOR  RED  FORCE:  EN&AG1NG=1,  WITHDRAWING: 

42G. 

c 

OS IMIN 

MINIMUM  DISTANCE  BETWEEN  OPPOSING  WEAPONS 

43  0. 

c 

44  f  . 

c 

451. 

C0MM0N/REC07  JOA  Y1  .  A I  NX  <  4  1 ,  ICA  RO  (  2D) ,  I H  V  *  IHN  ,1H  bi  IHT  ES  ,  1  HNO 

4tC. 

c 

470. 

DIMENSION 

RBKVLSU2,131  tBRKVLS  (12,13),B0EAD(  10,21  ,RCEAD«  10 

480. 

1 

OEAO  11 01,1  AMI  21 ,BWPN 110,3) ,R WPN 1 10 , 3 ) ,  1 BHI] 0 )  , 

49  r. 

1 

IRHI lOtfBROSUHl  10,2)  ,RFDSUM| 10,2  > 

SCO. 

c 

Sir. 

( 

520. 

PRINT  1 000  , 

IGAMTM 

530. 

PRINT  1010, 

OST  MIN 

540. 

1 

ibnum^bnum 

S50, 

1RNUM:;RNUM 

560. 

lAMll  ir  *ARTY’ 

570. 

1AMI2 J: 'MINE* 

580. 

c 

59  0. 

c 

1NTE6ER12E 

BLUE  JIFFY  POINTERS 

6t:o. 

DO  10  1=1 

,IBNUH 

610. 

IBH  (1  I 

=  Bwf Nil,  n 

620. 

10 

CONTINUE 

63''. 

c 

64  0. 

c 

INTEGER 12E 

RED  JIFFY  POINTERS 

65  0. 

00  20  1=1 

,IRNIJM 

66  C. 

I  RH  <  I  1 

:  RWPNl 1,11 

6  70. 

20 

CON  lINUf 

68  0, 

c 

3-64 

c  TF  tr n 

SIFIED 


69L-. 

7rc. 

7] 

n  r. 

73D. 
7«<  r, 

75  r . 
76C. 
77C. 
76'-. 
79'^. 
ecG. 
>^10. 
f!2 

2  3 '7. 
e^D. 
as  - . 
atn. 
87r. 

ea  . 

89  0. 
9CC. 
9  in. 

9?'  , 
93C. 
9‘«G. 
95  , 
9fc  i  . 
97f. 
98  0, 
99C. 
J  00, 
1  '.J  G, 
1  02  0. 
1030. 
10(«C. 
1  r50. 
1  ^tc. 

I  70. 
1  ''60. 
1C9C. 

II  U. 
111'. 
1 120. 
1130. 
11**'. 
115. 
1  ItC. 
1  17C. 
116'. 
119-'. 
1200. 
1210. 

122  4 

123  . 
12‘»C. 
125'. 
1  260. 

12  70. 
128i  . 
129C. 


C  PhlNl  BLUE  KILLER/REO  VICTIM  INFOPMATION 

C  PRINT  HEADINGS 

PRINT  2UDD 

PRINT  30C0,  IIRHIII l,lftNUM) 

C  PRINT  ;<E0  DIRECT  F 1  HE  LOSSES  AND  ROUNDS  FIRED 

DO  30  1=1 ilFNUM 

PRINT  «000|  IBHilltTDR'AVLSIliJ)  .J=ltIRNUHI 
PRINT  VOOS,  teROSUHtI  ,K)|K=}«2I 
30  CONTINUE 

C  PRINT  RED  ARTILLERTt  AND  MINE  LOSSES 

DO  ao  K?  ,2 

PRINT  <t010«  IAH(1  l,(bRKVLS(I«10|JI(J  =  l(lRNUH) 

40  CONTINUE 

C  SUM  DEAD  REDS  AND  PRINT  SUM 

DO  bC  l:i,lPNUM 

DEADUl  :  RDEADII>n  «  RDEADni.:l 
5n  CONTINUE 

PRINT  SOGQi  IDE  ADU  I  (1  -  1|  IRNUM) 

C 

C  PRINT  RED  KILLEK7BLUE  VICTIM  INFORMATION 

C  PRINT  HEADINGS 

PRINT  6QCQ 

PRINT  30CQ|  nBHiII.I:i,lBNUMI 
C  PRINT  BLUE  DIRECT  FIRE  LOSSES  AND  ROUNDS  FIRED 

DO  6f  I:1,1RNUM 

PRINT  40QCt  IRHd  I  (TRBKVLSII  ,J1  tJ:i(IBNUH) 

PRINT  UGC5«  (RROSUHtl  ,K  >,»<:  1,21 
60  CONTINUE 

C  PRINT  BLUE  ARTILLERY  AND  MINE  LOSSES 

DO  7D  1:1,2 

PRINT  401(1,  IAH(n,(RBKVLS(l4in,J),j:l,lBNUH) 
ir  CONTINUE 

C  SUM  DEAD  BLUES  AND  PRINT  SUM 

DO  8U  1:1,1BNUM 

DEAOni  :  BOEADd,!!  «  B0EADn,2) 

80  CONTINUE 

PRINT  5C00,  «0EA0ni,I-l,IbNUM» 

C 

C  QUESTION  GAMER  FOR  01 SENGAbEMEN T 

IFTBWORW ,EU. 1  .AND.  RUDRU.EQ.il  THEN 
9C  PRINT  7000 

CALL  ;EED4 
lUUT  AINXTll 

IFUOLT.LT.l  .OR.  iOUT.GT.31  THEN 
50  TO  SO 

ELSE  IFUOUT,£Q.:i  THEN 
BOSNG  :  2 

ELSE  IFIIOUT.EQ.TI  THEN 
ROSNG  :  ; 

ELSE 

BDSNG  -  1 
RDSNC  =  1 
END  IF 
END  IF 
C 

IDOii  FORMAHIX  . ‘OlAH  INFANTRY  STATUS  REPORTSlOX, 

I’BATTLE  TIME  I S  1 3,  2  X  , ‘MI  NUTE  S  » I 
ICIL  FORMATt IX , ’MINIMUM  DISTANCE  BETWEEN  OPPOSING  WEAPONS  IS 
1  Ffc.l  ,’  METERS’! 

20GL  FORMAT!  IX  ,y/ ,2X  , ’BLUE’, 23X,  *  RED  LOSS  LS  ’  ,2  bX  ,  ’  aUE  RNDS 
1  /, IX ,’ KILLER ’, 52X, ’PRIMARY /SECONDARY  »1 


SIFIED 


1300.  3000  FORMATfeX  ,10116)1 

1310.  •♦000  FORMATI3X,lH,i2Fe;l  1 

1315,  .  ‘♦005  FORMAT«55X  ,2F12 .1  1 

1  320.  •♦OlC  FORMATlSXfA^flOFe.l  1 

1330.  5000  FORMATIl* ,/t2X, ’TOTAL*, 1QF6  ,11 

IS^^O.  6000  FCRMATI IX  ,// ,2X  ,*  RED  *  ,  2  3X  , ’BLUE  LOSSES  *  ,2  .5X, 

1350.  1  /, IX, ’KILLER’, 52X, ’PRlMART/SECONDARY’l 

1360.  7000  F0RMAT«/7 ,ZX,’0O  TOO  WISH  TO  WITHDRAW  FORCES? 

1370.  1’1=N0  .2=BIUF  WITHDRAWS  3=RED  WITHDRAWS’) 

1380,  8000  FORMAT!  Ill 

1350.  C 

li^rO.  RETURN 

imn,  DEBUG  SUBCHK 

lM2n.  AT  1 

msn.  END 


RED  RNOS ’ , 

t 

% 


N  33‘l  IBANK  621  DBANK  30  COMMON 
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ciF irn 


ilFlED 


DIAMPUBLISH  .RNDCK 
R1  CMVCiy e?-lO:33ID  ,J 

IOC.  c  >>«*♦♦*•♦*♦♦♦*•**••♦♦*♦  SUBROUTINE  RNDCK  v*****^**!***!?**#****^* 

no.  c 
i;  c 
n  .  c 

H  ".  SUBROUT  INE  RNDCK  I > R PN« XCHR  ,  YCHR  ,XNUH,  YNUM •  XROFR i X  AHO ,  X ROSUdT 

ISO.  C 

Ifc-.  C  THIS  SUBROUTINE  COMPARES  ThE  AMOUNT  OF  ROUNDS  TO  FIRE  WITH 

170.  C  iHE  NUMBER  OF  ROUNDS  AVAILABLE  TO  FIRE,  IF  ROUNDS  FIRED 

•EC.  C  FROM  XRDFR  ARE  uRCATER  THAN  THE  ROUNDS  AVAILABLE  TO  FIRE 

190.  C  IN  XAMO,  THEN  THE  ROUNDS  ARE  REAPPORTIONED  SO  THAT  THE 

20C.  C  TOTAL  NUMBER  OF  ROUNDS  TO  FIRE  DOES  NOT  EXCEED  ONE  FOURTH 

.no.  C  OF  THE  CURRENTLY  AVAILABLE  ROUNDS. 

2  .  C 

231.  C  FOR  WEAPON  SYSTEMS  THAT  CARRY  RIFLES  AS  SECONDARY  WEAPONSt 
290,  C  THE  NUMBER  OF  ROUNDS  FOR  RIFLES  IS  INCREASED  TO  REFLECT 

2'D.  C  f-IFlE  FIRING 

2t  f  .  C 

27r,  C  XWPNd.J)  NUMBER  OF  X  FORCE  WEAPON  TYPE  1  IN  TACTICAL 

?eC.  C  MODE  J:2,3 

29C.  C  XAMOn.Jl  ammunition  FOR  X  FORCE  WEAPON  TYPE  I  OF  WHICH 

3CQr  C  IS  FOR  THE  PRINCIPAL  WEAPON,  AND  J=2  IS 

31  .  (  FOR  RIFLES.  THIS  ARRAY  CONTAINS  THE  AVERAGE  OF 

32U.  C  AMMO  AVAILABLE  PER  WEAPON 

33C.  C  XCHRn,9l  WEAPON  CATEGORY  FOR  X  FORCE  WEAPON  TYPE  It 

39C.  C  DISMOUNTED:!,  M0fiTARSr2,  LIGHT=3,  HEAVY:9 

ISC,  t  YCHmUiRI  weapon  CATEGORY  FOR  Y  FORCE  WEAPON  TYPE  1: 

3f'.  C  DISMOUNTED:!,  M0RTARS:2,  L16HT:3,  HEAVY:9 

37G.  C  XCHRU.SI  TIME  TO  AIM,  RELOAD,  AND  FIRE  FOR  X  FORCE 

3P'  .  C  WEAPON  TYPE  1 

390,  C  XRDFfin,J,Kl  ROUNDS  TO  FIRE  FOR  X  FORCE  WEAPON  TYPE 

9CC.  C  1  IN  TACTICAL  MODE  K:l,2  AGAINST  TARGETS  J  OF 

91C.  C  WHICH  J:ll,20  ARE  lACTlCAL  KODE  2 

92C.  C  XROSUKUiD!  TOTAL  ROUNDS  FIRED  FOR  WEAPON  TYPE  I  OF 

93'.  C  WHICH  J:l  IS  PRINCIPAL  AHMUNTION  AND  J:2 

99'.  r  IS  RIFLL  AMMUNITION 

91  .  C 

9t  .  C 

97r.  DIMENSION  X  AMO  f  10 , 2  ) ,  XWPN  (  ID,  3  ) ,  YCHR  ( 1 C ,  5 1  ,  X  CHR  UO  ,S  ) 

9HC‘.  xR0FRnO|2O,2),XROSUHI10,2l 

99-.  C 

5  -0.  C 

Mr.  1  IXNUM’XNUK 

S2:.  IVNUMzYNUM 

S3'.  C  THIS  LOOP  REAPPORTIONS  ALL  NON-RIFLE  ROUNDS  FOR  EACH  FIRER 

59C.  DO  ICO  l: 1  ,i>NUM 

55C.  C  SUM  TOTA.  ROUNDS  FIRED  AT  ALL  lARGETS 

se:.  iMxwpNn,?i.Gi.o.oi  go  to  s 

570.  IF  IXWPN ,3).LE  .0.01  GO  TO  IOC 

5'  1)  SUM  :n,0 

59  C.  C 

6  U.  C  SET  RIFLE  FLAG 

tl  •.  IRIFLE:0 

C2n.  lFTXAM0d,2I.NE,0.0l  1RIFLE:1 

63C.  C  r.UN  THROUGH  ALL  TARGETS  FOR  NON-RIFLE  FIRING 

fctif.  Ou  ?C  J:l  .lYNUM 

fcSr.  C  CHECK  FOR  PERSONNEL  TYPE  TARGET.  IF  PERSON  AND  RIFLE 

Efcf.  C  ROUNDS  available  THEN  MUST  FIRE  RIFLE 

67C.  IF  IYCHR(J,9I.E0.!  .AND.  IRIFLE.EC.II  GO  TO  20 

6?C,  C  SUM  total  rounds  FIRED  AT  THIS  TARGET  BY  FIRERS  IN 


SIFIEO 


690.  C 
700. 

710. 

72  n.  ID 
730.  20 

79  0.  C 
750,  C 
76C.  C 
77  0. 

780. 

790.  C 

eco*  c 
810.  c 

820.  C 
830. 

06  0.  C 
87C. 

qac.  c 

09  7.  C 

90  Q, 

91  r,  c 
920. 

930. 

99C. 

950. 

Sgr,  30 
97<-..  9  0 

980.  C 
99  0.  C 
1000. 

1010. 

1020.  C 
1030.  50 

105  0.  C 
1060.  C 
1670,  55 

1080.  C 
1090. 

1100. 

1110. 

1120. 

1130, 

1 1 9  r  ,  6  P 

115i'.  70 

116'-.  C 

inn, 

1180.  c 

1190. 

1200. 

I2ir.  c 

1221'.  C 

1230.  C 

I3««q.  c 

125  0.  C 

1  260, 

1290. 

1  3D0.  C 

1  31  r.  C 

1  32  Q. 

1  33  C 

1  39  0. 

SIFIED 


TACTICAL  MODES  1  AND  2 

00  ir  «  :l  ,2 

SUM=*{.R0F'Rn,J,KMXr0FRIl,J'»10,K  J  ♦  SUM 
CONTINUE 
CONTINUE 

COMPARE  NUMBER  OF  ROUNDS  FIRED  WITH  NUMBER  AVAILABLE, 
FIRST  TOTAL  NUMBER  OF  WEAPONS  ALIVE  TO  FIRE 
TWPN  :  XWPNU«2I 

IFIXWPNII, 31  .61.0.0)  TWPN  =  TWPN  *  XWPNIlt3) 


COMPUTE  THE  NUMBER  OF  NON-RIFLE  ROUNDS  AVAILABLE 
PER  WEAPON 

AVL  =  TWPN  «  XAMOil,])  <»  0.25 

IF  NUMBER  FIRED  LESS  THAN  AVAILABLE  REDUCE  ROUNDS 
IF  ISUM.LE.AVLI  GO  TO  50 

REAPPORTION  THE  NUMBER  AVAILABLE  OVER  ALL  FIREO 
DO  90  J  =  1  .IlNUM 

IGNORE  PERSONNEL  IF  RIFLES  ARE  AVAILABLE 
1F(YCHRIJ,9).EQ.1  .AND.  IRIFLE.EU.ll  GO  TO  90 
00  30  K=lt2 

XROFRiltJiK)  r  XROF R( I , J . K ) / S UM  *  AVL 
XROFR  11  ,J4  10,K)  =  XROFRI 1 ,04  1C,.0/SUH  *  AVL 

CONTINUE 
CONTINUE 

UPDATE  XAMO  ARRAY 
XAHOIl,]!  :  XAMOII,n  *  C.7S 
60  TO  55 

COMPUTE  THE  AVERAGE  NUMBER  OF  ROUNDS  LOST 
XAHOn,l)  =  XAHOTI,!)  •  SUH/TWPN 

IF  NO  RIFLE  TOTAL  ROUNDS 

IF  URIFLE.EQ.OI  GO  TO  99 

CALCULATE  RIFLE  SHOTS  AND  SUM  ALL  SHOIS 

SUM  :  0.0 

00  70  J:l  .ITNUM 

lFnCHRIJ,9|  .NE.l.LI  GO  TO  7G 
DO  60  Krl,2 

SUM  =  XRDFR(1,J,KI  «  X  RDF Rl 1 , J4 10 ,» )  «  SUM 
CONTINUE 
CON  riNUE 

H  (SUM.EC.O.Ci  GO  TO  99 

COMPUTE  NUMBER  OF  WEAPONS  AVAILABLE 

TV  PN  :  XWPNT 1,2  ) 

IMXUPNn,3I.GT.0l  TVsPN:  TWPN  ♦  XWPN)l,3l 

COMPUTE  NUMBER  OF  RIFLE  ROUNDS  FIRED  TAME  AIM 
FIRE  RELOAD  TIME  FOR  THIS  PRINCIPAL  WEAPON  ARE 
DIVIDED  BY  3  SECONDS  FOR  AIM,  FIRE,  AND  RELOAD 
FOR  RIFLE 

AVI  :  XAHOIl, 2)  ♦  TWPN  *  0.25 

iriSUM«-XCHRn,5W3.0  .IT.  AVLI  A  VL:SUM>!«XCHk' 1 1  ,  5  I  /  3  .  C 

REAPPORTION  RIFLE  FIRINGS 
DO  90  j:i  ,I YNUM 
CHECK  FOR  PERSONNEL  TARGET 
If  IYCHr(|J,9  1,NE.ll  GO  TO  9C 

3-68 


SIFIED 


1  3SG. 

DO  9C  H=l»2 

1  36  r. 

XROFR  II  ,J|»(  1  =  XROFRII,  J,K  )  ASUM  »  AVL 

1  370. 

XRDFR II ,J4 lO.Kl  r  X ROFR 1 1 , 1 0, K 1 > SUH  ♦  AVL 

13EC. 

80 

:0N1INUE 

13SI. 

90 

CONTINUE 

noo. 

XAMOII.ZI  =  XAHClI.OI  -  AVL/TWPN 

1<I1C. 

c 

1  MZ  ^ 

c 

SUM  ROUNDS  FIRCO 

l‘i3n. 

94 

DO  95  J=1  iIYNUM 

Krl 

IF  1  IRIFLE.E  0.1  .AND.  YCMR  IJ  ,4  }  .EQ  .  1  1  Kr2 

i<«6i;. 

XR0SUHI1,K1  =  XRDFRIliJfll  «  XROFR 1 1 1 J« 1  Of 2 1  «  XROSUHII,K) 

1465. 

1  «  XRDFR  II «J«  lOf 11  «  XRDFRIltJ«2l 

1  470. 

95 

continue 

]  4er. 

100 

CONTINUE 

149'‘. 

c 

1  5  0. 

RETURN 

ISP. 

DEBUG  SUBCHK 

1  52-. 

AT  1 

1  S3;>. 

END 

N  761  IbAtjK  8S  DBANK 
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SIFIED 


DIAMPUBLISH.RNDFRD 
R1  04/19/82-U  ;50(0,» 


100. 
no. 
120, 
130. 
l<iQ. 
150, 
160, 
170. 
180. 
190. 
200. 
210, 
220. 
230, 
2^0. 
250. 
260. 
270. 
280. 
290. 
300. 
310. 
320* 
330. 
3£»0. 
350, 
360, 
370, 
380, 
390. 
‘{00. 
910. 
920. 
930. 
990, 
950. 
960. 
970, 
98  0  a 
990. 
500. 
510. 
520. 
530. 
59  0. 
550, 
560. 
570. 
500. 
590, 
600. 
610. 
620. 
630, 
690, 
650, 
660. 
670. 
660. 


C 

c 
c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


1 


SUBROUT INE  RNOF RD « XT MKLL ,T 0TYT6 ,XWPN , tWPN ,PCX V YZ  ,P CVV X 2 , 

XOf AT ,SH0RW,XRDKLL.YSPF66»  XSPF06»XRDFR 1 


THIS  SUBROUTINE  CALCULATES  XRDF R « 1 ,M , J I  * 
FORCE  WEAPON  TYPES  1  IN 
TARGET  TYPES  M  OF  WHICH 

XDFAT 
XWORW 

XTKKLUIiMfJl 


ROUNDS  TO  FIRE  BY 
TACTICAL  MODE  J=l,2  TO  Y  FORCE 
M=ll,20  ARE  IN  TACTICAL  MODE  2 


INDEX  FOR  X 
INDEX  FOR  X 
TIME  TO  KILL  FOR 
IN  TACTICAL  MODE 


FORCE;  irOEFENDING,  2:ATTACHIN6 
FORCE:  l=EN6A6IN6t  2=W IT HOR AW  1 N6 
X  FORCE  WEAPON  TYPE  I 
J:lt2  AGAINST  TARGET 


TOTYTGI 1* Jl 


XUPNd,  J«1  I 
yWPN(K(L4l ) 


PCYVXMI K.N  ,L  I 


pcxyYun»M,ji 


XROKLLUoM.Jl 


JISPFOGI  I,  Jl 


VSPFOGU.L  I 


FRCTN 


TYPE  M  OF  WHICH  HrH.ZO  ARE  IN  TACTICAL 
MODE  2 

TOTAL  NUMBER  OF  Y  FORCE  TARGETS  FOR 
X  FORCE  WEAPON  TYPE  I  IN  TACTICAL 
MODE  2 

NUMBER  OF  X  FORCE  WEAPON  TYPE  K  IN 

TACTICAL  MODE  L=1.2 

NUMBER  OF  Y  FORCE  WEAPON  TYPE  K  IN 

TACTICAL  MODE  L=l,2 

PERCENT  VISIBLE  OF  Y  FORCE  WEAPON 

TYPE  K  IN  TACTICAL  MODE  L:l,2  TO  X 

FORCE  WEAPON  TYPE  N  OF  WHICH  N:ll,20 

ARE  IN  TACTICAL  MODE  2 

PERCENT  VISIBLE  OF  X  FORCE  WEAPON 

TYPE  I  IN  TACTICAL  MODE  J=l,2  TO 

Y  FORCE  WEAPON  TYPE  M  OF  WHICH  M:ll,20 

ARE  IN  TACTICAL  MODE  2 

ROUNDS  TO  KILL  FOR  X  FORCE  WEAPON 

TYPE  I  IN  TACTICAL  MODE  j:l,2 

AGAINST  Y  FORCE  TARGET  TYPES  M 

OF  WHICH  M:n,20  ARE  IN  TACTICAL 

MODE  2 

FIRE  SUPPRESSION 
WEAPON  TYPE  1  IN 
FIRE  SUPPRESSION 
WEAPON  TYPE  K  IN 


1»2 


AGAINST  X  FORCE 
TACTICAL  MODE  J: 
AGAINST  Y  FORCE 
TACTICAL  MODE  L=I|2 


FRACTION  INDICATING  TRUE  FIRINGS 


DIMENSION  XTMKLLnO92O,2l,TOTY76nO,2l,YWPN«10,3I,XWPNIIO»31 

1 ,  PCYVXZilQ,2D,2l  ,XRDFRn0,20,2l  ,XR0KLLnOf20|2) 

2,  XSPFD3  nOsZI  sPCXVYZt  10,20,2  I  ,YSPF0G<10,2  ) 


FRCTN  :  0.5 
IF« XDFAT,EQ.2I  THEN 
FRCTN  :  0.25 
END  IF 

IFJ XH0RW,EQ.2I  THEN 
FRCTN  =  0.20 
END  IF 


C 

IQO 


DO  ID  J=l,2 
DO  20  1=1, 


10 


SIFIED 
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siruo 

6SC. 

DO  3C  L:1,2 

700. 

00  90  Kri  ,10 

710. 

C 

72  P. 

XSPDG  :  I  -  XSPFD6I  I,JI 

73r, 

YSPOG  :  1  -  YSPFD6IK,L»>»0.33 

7‘»C. 

RDKLL  :  XRDKLLIl ,K4 (L-1 

75% 

TMKLL  =  XTnKLLIl4N«lL'n*10fJl 

76  r. 

TOTTG  :  TOTYTGll.JI 

77t  . 

YWPNN  :  YMPNiK,L«ll  ♦  PC  Y  VXZi  K ,  I «  IJ- 1  1  *10  ,L  1 

780. 

XUPNN  =  XUPNiI,J«)l  *  PCXVVZI1,K4|L~1)«10,J} 

79r. 

c 

800. 

IF (TOTTG. NE.O  .AND.  THKLL.NE.O)  THEN 

810. 

RDFR  :  (1 IKOKLLy TMKLL)*XHPNN*YWPNNI/T0TTGI 

8  "  C. 

EL  SE 

83C. 

ROFR  :  G 

8*1'  . 

END  IF 

85  . 

X«Df  R(  .1  ,K*IL>U*  1D,J>  :  RDFB  ♦  FRCIN 

86  C. 

c 

87  . 

9C 

CONTINUE 

88'. 

30 

CONTINUE 

89  . 

20 

CONTINUE 

9(.0. 

10 

CONTINUE 

91% 

c 

92'-, 

8  fc i US  N 

931.. 

DEBUG  SUBCHK 

9M 

AT  ICO 

95'  . 

LNO 

*XSPOG*VSPD& 


N  S”?  IBANK  110  DBANK 


SIFIED 


DlAKPUBLl  SH  .RNDKLL 
R1  0*1^01/ 82-10 ;  33  <0  fl 


100. 

110. 

120. 

J3D. 

i«»o; 

150. 

UO. 

ItO. 

leo. 

150. 
2':6. 
210. 
22  0. 
27C. 
2‘iO. 
25C. 
26  ■*:. 
27(1, 
28  0. 
25  >3. 
300. 
310. 
320. 
330. 

3Sr, 
36  0. 
370, 
380. 
3S0. 
ROQ. 
Ml  '1. 
>«20. 

MMV* 
‘15  0. 
56  0. 
570. 
58(1. 
450. 
51  0. 
51 
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C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

100 


c 

50 

30 

20 

10 

C 


SUBROUTINE  RNDKLL  I » VPKW » XROKIL I 


THIS  SUBROUTINE  CALCULATES  «R0KLLI1.H,JI|  ROUNDS  TO 
FOR  X  FORCE  WEAPON  TYPE  1  IN  '^*^J**' 
against  V  FORCE  TARGET  TYPES  M  OF  WHICH  H-11.23 

ARE  IN  TACTICAL  HODL  2 


XYPKW  »I  ,Hi 


probability  of  kill  ISSPKl  FOR  X 
ULAPON  TYPES  1  IN  TACTICAL  MOUt  J-l»2 
against  Y  force  target  TYf^E  M  OF 
WHICH  m:11j2C  are  IN  TACTICAL  HODL  2 


DIMEN  SI  ON  XYPKW  (  10,2C|21»XRi)KLL<  10*20  |2I 


00  10  J:i  ,2 
DO  20  1-1,10 
00  30  Lri,2 
00  50  «  =  1  ,10 


PK  rXYPMWI  I  »  IO*J  > 

IFlPU.Gl.Ul  THEN 

ROKLL  :UPK 

ELSE 

ROKLL :0 
END  IF 

XRDKLH  1  ,«■*  (  L -1  >  « 1 0  #J  I  -  RDKLL 


COM  INUE 
CONTINUE 
CONTINUE 
CONTINUE 

RETURN 

DEBUG  SUBChU 
AT  ItiO 
END 


N  106  IBANK  36  OBANK 
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STF  TFn 


SIf  lEO 


OIAKPUBLISH .RNGbNG 
51  G4/Gl/F2>lG:33fG,l 

ICG.  C^**>»»*»*****> 

110.  C 


StrBROUllNC  RN6BN0  ****«*•**«•«*•*«**«*«* 


SU&ROUI IKE  RKGB  NO (OBkfiyP ,B  RRGEO I 

THIS  SUbROUIlNE  CALCULATES  aRRGfiO f I , J ,K I ,  THE  RANGE  SANDS  FOR 

EACH  BLfE  FORCE  WEAPON  TYPE  1  IK  TACTICAL  MODE  »i-U2  TO  EACH  REl 
FORCE  kEAPON  TYPE  J  OF  WHICH  Jrll,2u  ARE  IN  TACTICAL  MODE  2 

08URWPII,J«KI  DISTANCE  FROM  BLUE  FORCE  WEAPON  TYPE  1  IN  TACTICAI 
MODE  K=l,2  TO  RED  FORCE  WEAPON  TYPE  J  OF  WHICH 
J=n,2G  ARE  IN  TACTICAL  MODE  2 


DIMENSION  OeWRWPnCt2G,2)  ,BRRGBDn0,£0,2l 


DO  10  K ,2 
DC  20  I  r 1,10 
CO  jC  J=1,2C 

ABSDST  r  ABS lObWRWPt 1  ,J,K n 

IFIAGSDST .GT. 40001  THEN 
IRANOre 

ELSE  IFIAESOST.GE.O  .AND.  ABSOS T .LE. 200  I  THEN 
lEANOrl 

ELSE  IFU6S0ST  .GT,200  .AND,  ABSDST. LE  .4001  THEN 
IBAN0:2 

ELSE  IFIA8SDST.GT.4D0  .AND.  ABSDST. LE .6001  THEN 
IPANO: 3 

ELSE  iriABSDST.GT.eOO  .AND.  ABSDST. LE .8001  THEN 
le and:4 

ELSE 

IE  AND:  i. 

END  IF 

bhRfbDd  «J«KI  :  IBAND 


5!  0. 

20 

CONTINUE 

SI*  . 

20 

CONTINUE 

0 

S2  . 

irj 

CONTINUE 

S3  . 

( 

S4-. 

R  i  T  UR  N 

S5''. 

Debug  subchk 

56.'-. 

AT  1 

57  . 

Lt.D 

N  127  I  DANK  3£  DBANK 


SJFIEO 


OIAMPUBL15H.RNGDST 
1  82-10:  33  1(3  ,1 


C 


SUBRtiUllNE  RN6CST 


SU8R0UI INE  RNGOST  <6RRG80 ,RB RGBO ,CByRWP ,DRWBWP 1 

THIS  SUBROUTINE  DETERMINES  RED  FORCE  kEAPON  TO  BLUE  FORCE 
WEAPON  DISTANCES  AND  RANGES  GIVEN  THE  DISTANCES  AND 
RANGES  FROM  BLUE  FORCE  WEAPONS  TO  RED  FORCE  WEAPONS 


BRRGBDl I 


RBRGBDIK 


DBWRUPf  1 


ORLBUPt  K  ,LI 


RANGE  BANOS  FROM  BLUE  FORCE  WEAPON  TVPE  1  IN 
TACTICAL  MODE  TO  RED  FORCE  WEAPON  TYPE  M 

OF  WHICH  H=n,20  ARE  IN  TACTICAL  MODE  2 
RANGE  BANOS  FROM  RED  FORCE  WEAPON  TYPE  K  IN 
TACTICAL  MODE  1  =  1,2  TO  BLUE  I ORCE  WEAPON  TYPE 
N  OF  WHICH  Nrll,20  ARE  IN  TACTICAL  MODE  2 
DISTANCE  FROM  BLUE  FORCE  WEAPON  TYPE  I  IN 
TACTICAL  MODE  0=1,2  TO  RE)  FORCE  WEAPON  TYPE 
H  OF  WHICH  M=ll,20  ARE  IN  TACTICAL  MODE  2 
DISTANCE  FROM  RED  FORCE  WEAPON  TYPE  K  IN 
TACTICAL  MODE  k:1,2  TO  BLUE  FORCE  WEAPON  TYPE 
N  OF  WHICH  N=ll,20  ARE  IN  TACTICAL  MODE  2 


DIMENSION  BRRGBOn  Q,20«2)  ,  RB  RGBO  II 0, 20 , 2  I  , 
1  DBwnwPl 10,20,21 ,DRWBWP 1 10, 20,2 1 


00  10  J:l ,2 
00  2C  1=1,10 
DO  3C  L=1,2 
DO  *)D  K:1 


RBRGbOl K,l4 «J-1 1»10,L 1  =  PRR6B0II ,K«  IL-1  )*1Q,J  1 
DRWBWPI  Mjl-s  IJ-1!*1D,L  1  =  DB  UR  kP  U  ,  I L -lUl  0,  J  1 


continue 

CON  TINUE 
CONTINUE 
CONTINUE 


RETURN 
DEBUG 
AT  1 
END 


SUBCHH 


N  1R9  IBANK  51  DBANK 


51FIE0 


SIF  If  13 


DIAMP UBLl SH.SPD6 
R1  OMAUl/ B2-10;33I0  ,) 


IDU. 

««  subroutine  SP06  *>***********^n^^*****nf* 

IID. 

t 

r 

U'. 

c 

m  . 

SUBROUTINE  SPDG  IXWDRU ,YUDRb  ,XDF  AT , XCHR « E XCLSS • EY CL S S « X ARTSP . 

IS-'. 

1 

XMNLSStXSPFOG •XSPMDGI 

16  . 

c 

17P. 

c 

THIS  SUBROUTINE 

CALCULATES  XSPF D6 4 1  ,M , J 1  AND  X SPMDG 41 ,M , J) , 

leu. 

c 

FUE  AND  MOVEMENT  SUPPRESSION  FACTORS  FOR  X  FORCE  WEAPON 

ISO. 

c 

TYPE  1  IN  TACTICAL  MODE  J-1|2|  FROM  THE  OPPOSING  WEAPON 

200. 

c 

FORCE  TYPE  M 

OF  WHICH  H=n,20  ARE  iN  TACTICAL  MODE  2 

22'. 

c 

23  . 

c 

XWDRW 

INDEX  FOR  X  FORCE:  ENGAG1N6=1 ,  W1 THOR AWING= 2 

240. 

c 

YWORW 

INDEX  FOR  V  FORCE:  ENGAGING=1 ,  WlTHOR AWING=2 

2  5r. 

c 

XUF  AT 

INDEX  FOR  X  FORCE:  DEFENDING:!,  ATTACKIN6:2 

260. 

c 

XCHRI 1,4) 

WEAPON  CATEGORY  FOR  X  FORCE  WEAPON  TYPE: 

2  7G. 

c 

DISMOUNTED:  1  ,  H0RTARS:2,  LI6HT:3,  HEAVV:4 

260. 

c 

EXCLSSU  ,M,  J) 

THE  EXPECTED  COMMITTEE  LOSSES  FOR  X  FORCE 

2  s  . 

c 

TARGET  TYPES  I  IN  TACTICAL  MODE  J=l,2  FROM 

3ro. 

c 

OPPOSING  FORCE  WEAPON  TYPES  M  OF  WHICH  Mrll,20 

31C. 

c 

ARE  IN  TACTICAL  MODE  2 

32  C. 

c 

EYCLSSIK.N,L) 

THE  EXPECTED  COMMITTEE  LOSSES  FOR  Y  FORCE 

33!  . 

c 

TARGET  TYPES  K  IN  TACTICAL  NODE  L:i,2  FROM 

34". 

c 

OPPOSING  FORCE  WEAPON  TYPES  N  OF  WHICH  N: 1 1 , 20 

31C. 

c 

ARE  IN  TACTICAL  MODE  2 

36C. 

c 

XARISPt  I  ,J) 

ARTILLERY  LOSSES  FOR  SUPPRESSION  FOR  X  FORCE 

37'  . 

c 

WEAPON  TYPE  1  IN  TACTICAL  MODE  j:i,2 

36C. 

c 

XMNLSSl 1 ,JI 

minefield  LOSSES  FOR  X  FORCE  WEAPON  TYPE  1  IN 

c 

tactical  mode  j:  1,2 

4C!C. 

c 

TACTICAL  MODE  J:  1,2 

41  ■, 

c 

42'  . 

c 

430. 

DIMENSION  XCHR 110, 5), EXCESS  1  10 , 20, 21 ,E YCLS S 1 1 0,20 , 2 )  , 

44C. 

1  XSPFDGnQ,2),XSPHDGI  10  ,2 ) ,  COEF  1  10 , 2  1 , 

4fC. 

1  XT0TCLn0v2),XARTSP(  10,2  I,  XTOTCFI  10,21, 

46''. 

1  XMNLSSnO,2l 

47r  . 

c 

4(  '  . 

c 

4Sf  . 

c 

INITIALIZE  COEFFICIENTS  BASED  ON  WEAPON  CATEGORY 

SCO. 

1 

00  1C  1=1,10 

510. 

IF(XCHRn,4).EQ.4)  THEN 

520. 

COEF  4  1,1) 

=  1 

530. 

COEF  4 1  ,21 

:  1 

S4C. 

ELSE  IF4XCHR41,4).E0.2)THEN 

fSC. 

COEF  4  1,11 

:  2  .86 

56C. 

COEF4I,2) 

:  2  .66 

57'  . 

ELSE 

5^0. 

C0EF4 1  ,1 ) 

:  2.66 

5St. 

COEF4I,2) 

:  2.66 

600. 

END  IF 

61  ". 

10 

CONTINUE 

62  '. 

c 

63f  . 

c 

.ERO  OUT  ARRAYS 

64  0. 

VAR  -0 

65''. 

CALL  INITl  IXTOTCF,VAR) 

66  0. 

CALL  INITl  (XTOTCL, VAR ) 

6 '  r. 

c 

66-^. 

c 

TOTAL  LOSSES  INFLICTED  BY  X  FORCE  WEAPON  TYPES 

69C. 

c 

TOTAL  LOSSES  OF 

X  FORCE  WEAPON  TYPES 

3-75 


5IFIE0 


ICO. 

DO  “D  lrl,lO 

71.  C. 

00  SJ  J:i,2 

72  r. 

00  £0  i<=l  ,10 

73C. 

DO  70  L:1,2 

7“0. 

XTOTCFll.Jl  :  XTOTCFn,J»  *  E7CL  SS  1 K  ,I  ♦  C  J-1  1  ♦  10  »L  1 

750. 

XTOTCLIl.JI  =  XTOTCHI,JI  «  E  XCLSS  <1  ,K  ••  IL -1  1  ♦!  C  ,  J 1 

760. 

70 

CONTINUE 

770. 

■  60 

CONTINUE 

78  0, 

50 

CONI INUE 

790. 

*10 

CONTINUE 

800. 

C 

810, 

c 

ADD  IN  ARTILLERY  LOSSES  FOR  SUPPRESSION  AND  MINE  LOSSES 

820. 

DO  80  1=1,10 

830. 

00  90  0=1,2 

enc. 

XTOTCLd.J)  =  XTOTCm.JI  ♦  XARTSPI1,J»  «  >MNLSS(I,J» 

85C. 

90 

CONTINUE 

eo 

CONTINUE 

87r. 

c 

ear. 

c 

CALCULATE  SUPPRESSION 

890. 

00  100  1  =  1  ,10 

900. 

DO  nr  j:  1,2 

910. 

If  IXTOTCF  <1,JI  .GT.OI  THEN 

92  r. 

RATIO  :  XT0TCLII,J1  /  XTOTCni,Jl 

930. 

inXDFAT.EQ.il  THEN 

9‘<0, 

IFIXWORN.EQ.l  .AND.  VWDRU.Eu.ll  THEN 

95  0. 

FSP  =  COEFU,J)  *  12.06  *  RATIO  ♦  1.591  /  100 

960. 

ELSE 

970, 

ESP  :  C0£Fn,Jl  *  11.06  ♦  RATIO  ^  .19)  /  TOO 

980. 

END  IF 

99'  . 

ELSE 

1000. 

IF  (XUORW.EQ.l  .AND.  YMDRW.Ea.l)  THEN 

1010. 

FSP  =  COEFll.JI  #  «8.  *  RATI0*»1,S  <  3,26)  7  100 

1020, 

ELSE 

1030. 

FSP  =  COEFll.Jl  »  (2.5  ■!-  HAT10«»1.5  .51  /  100 

10<tC. 

END  IF 

inso. 

E‘0  IF 

1  060. 

XSPFOGIIsJI  =  AMiNH.8,FSP) 

1080. 

XSPMD6(!,J)  :  AMIN  1 » .9 , F SP ) 

1090. 

ELSE 

1100. 

XSPFOGl  l.Jl  =0 

1110, 

XSPMOGl 1, J1  =  0 

112  0. 

END  IF 

1130. 

ilO 

CONTINUE 

1190. 

lOQ 

CONT  INUE 

US'". 

c 

116  0. 

RETURN 

1170. 

DEBUG  SU0CHK 

neo. 

AT  1 

1190, 

END 
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IJO,  c 


12  r, 

i  ’■". 


c 

c 


J  H  >  , 

i?.o.  c 
16  r.  c 
17C.  C 

lec.  c 

190,  c 

2C0,  C 
21  '  .  C 

;  2 r 

2  3  0.  C 
2‘)0.  C 
250.  C 
2  6  0.  C 
270.  C 
2  80,  C 

29  .  C 

300.  C 
?1  '.  c 
32C,  C 

330,  C 
3*4'  ,  C 

35  '.  r 

36  0.  C 

3vr.  t 

38  C 

39  •  .  C 

9C0,  C 
‘110,  C 
“2  .  C 

M3'.  C 

‘lEO. 

MfC,  C 

‘47.,  C 
4180.  1 

*4  9  0. 

SCO, 

51  •  .  C 

52  ", 

53C, 

5*40. 

55  C. 

5(  ■  . 

57.  .  C 

58';.  c 

59*', 

60  0. 

61 ; . 

62  0. 

6  3'-. 

6*10, 

65r, 

66  '. 

67'’. 

66'*,  *4  0 


SUBROUT  INE  T  AGO  SH  4  XOHV  •  XCH  R  ,y  CH  R ,  XbPN  ,0  XF  A  UP ,  DA  WV  WP  ,XT  ACA} 


THIS  SUBROUTINE  ALTERS  THE  TACTICAL  MODE  OF  ONLY  LIGHT 
CATEGORY  WEAPON  TYPES  IN  THE  ATTACKING  FORCE.  WHEN 
A  SPECIFIED  OPPOSING  WEAPON  CATEGORY  IS  WITHIN  A 
SPECIFIED  DISTANCE,  THE  LIGHT  CATEGORY  CAN  DISMOUNT 
INF  ANTRY . 


YOHV 

XCHR4I,<4| 
YCHR4K  ,*4  I 
>WPN4  1,  JO  1 
0XWYWP4 I ,M , J1 

XTACATA  ,B  1 


OkFXWPI 1,J1 


INDEX  FOR  X  FORCE:  IrHOUNTEO,  2=0ISM0UNT£D 
CATEGORY  OF  X  FORCE  WEAPON  TYPE  I: 

KOISMOUNTED,  2-HORTARS,  3=LI6H],  ‘irHEAYY 
CATEGORY  OF  Y  FORCE  WEAPON  TYPE  K: 

UDISHOUNTED,  2:H0RTARS,  3  =  LI6HT,  *4:HEAUy 
NUMBER  OF  X  FORCE  WEAPON  TYPE  1  IN  TACTICAL 
MODE  J-1,2 

DISTANCE  FROM  X  FORCE  WEAPON  TYPE  I  IN  TACTICAL 

MOOE  j:l,2  TO  Y  FORCE  WEAPON  TYPE  H  OF  WHICH 

Mill, 20  ARE  IN  TACTICAL  MODE  2 

TACTICS  ARRAY  FOR  ATTACKING  FORCE  X 

a:1  FOR  LIGHT  CATEGORY 

A=2  FOR  HEAVY  CATEGORY 

B:l  OPPOSING  WEAPON  CATEGORY 

B:2  distance  BETWEEN  A  AND  B=1 

B:3  percentage  OF  NUMBER  OF  WEAPON  TYPES 

IN  TACTICAL  MOOE  )  THAI  GO  INTO  TACTICAL  MODE  2 

DISTANCE  FROM  X  FORCE  CENTROID  TO  X  FORCE 

WEAPON  TYPE  1  IN  TACTICAL  MODE  J=I  ,2 


DIMENSION  XCHR  4 10, 5)  ,YCHR  410,5).XWPN410,3lt0XWYWP41Q,20,21 
1,  X1ACA42, 31, 0XFXWP4 10,21 


00  U  1 :i  ,IU 
DO  20  K:I,]0 
DO  30  L=1,2 

XCAT-XCHR4I,*4l 
IF4XCAT.EQ. 31  THEN 

IF  4XTACA41,  ll.EQ.YCHR4K,<4n  THEN 

IF  4XT  ACA4  1,21  .GE  .ABS40XWVUP41  ,K«  4L-  n<>10,  n  n  THEN 
DIST  :  0XFXMP41,1J 

DISMOUNT  TROOPS 
DO  *40  M-l,10 

IF4XCHR4H,m.EO.n  THEN 
1F4XHPN4H,2).GT.01  THEN 
XUPN4M,3)  =  XWPN4H,21 
XWPN4M,2I  :  C 
DXFXWP4M,21  r  QISI 
DXFXWP4M,n  :  -9999999 
END  IF 
END  IF 
CONTINUE 


I 


2. 


*7  *7 


ir£--*rMa 


SIFIED 


690. 

C 

700. 

C 

CHANGE  TROOP  CARRIER  MODE 

7io. 

DO  50  N:1,10 

720. 

IF<XCHRIN,9I.£Q.3}  THEN 

73^. 

IF(XUPN(N(31.GE.0>  THEN 

79  0. 

IFUWPN<N#2I  .GT.OI  THEN 

750. 

XUPNIN,3I  =  XHPNfN«2 

76  0. 

XUPNIN,2I  :  0 

770. 

DXFXHP«N,2J  =  UXFXWP 

780. 

DXFXHP«N,1»  :  -99999 

790. 

E  NO  I F 

ero , 

END  IF 

ei  0. 

END  IF 

82  0, 

50 

CONTINUE 

830, 

XOMV  :  2 

690. 

RETURN 

as'i 

C 

86  0. 

END  IF 

870, 

END  IF 

88  0, 

E  NO  IF 

89  0. 

c 

900, 

30 

CONTINUE 

91  0. 

20 

CONTINUE 

92  0. 

10 

CONTINUE 

9  30. 

C 

99 

C 

95  0, 

C 

96  0, 

RETURN 

970, 

DEBUG  SUBCHK 

980. 

A1  I 

99  0.  . 

END 
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1  ’r. 

1  '4  ■ '. 
15C. 
16'\ 
17C. 
lec. 
19  0. 
200. 
:ic. 
.'2  0. 
23  . 
2<40. 

2sr. 
26  '  , 
270. 
reo. 

290. 
300. 
3)0. 
'2  0. 
33  . 
340. 

35  , 

36  . 
370. 
'eci. 
39  . 
<if  0. 
410. 

42  0. 

43  ;  . 

44  *.. 
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c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f. 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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SUBROUTINE  TACOVU iXOVUTH ,XCHR «TCHR,XWPN  «OXFXUP  ,DXU YWP ,XTACA) 

THIS  SUBROUTINE  ALTERb  THE  TACTICAL  MODE  OF  ONLY  HE*VV 
CATEGORY  WEAPON  TYPES  IN  THE  ATTACKIT4G  FORCE.  WHEN 
A  ‘SPECIFIED  OPPOSING  WEAPON  CATEGORY  IS  WITHIN  A 
SPECIFIED  DISTANCE!  THE  HEAVY  CATEGORY  CAN  GO  INTO 
OVERUATCH. 


XOVWTH 
XCHRn  ,  4) 
YtHR<K,41 
XWPN)  i,j-*n 
OXUVWPi 1 ,K • 

XTACAIA ,B) 


UXFXWPT  I  ,J) 


INDEX  FOR  X  FORCE:  KNOT  IN  OVERHATCH, 

2=IN  OVERMATCH 

CATEGORY  OF  X  FORCE  WEAPON  TYPE  I: 

]:01SH0UNTED,  2=M0RTARS,  3:L16HT,  4=HEAVV 
CATEGORY  OF  Y  FORCE  WEAPON  TYPE  K; 

KOISMOUNTED,  2  =  M0RTARS,  3=L16HT,  4=HEAVY 
NUMBER  OF  X  FORCE  WEAPON  TYPE  I  IN  TACTICAL 
MOPE  J:l,2 

,1)  DISTANCE  FROM  X  FORCE  WEAPON  TYPE  1  IN  TACIlCftL 
MODE  .J:l»2  TO  Y  FORCE  WEAPON  TYPE  M  OF  WHICH 
M=n,2D  ARE  IN  TACTICAL  MODE  2 
TACTICS  ARRAY  FOR  ATTACKING  FORCE  X 
A:1  for  light  CATEGORY 
A:2  for  heavy  CATEGORY 
8=1  OPPOSING  WEAPON  CATEGORY 
B=2  DISTANCE  BETWEEN  A  AND  8=1 
8^:3  PERCENTAGE  OF  NUMBER  OF  WEAPON  TYPES 
IN  TACTICAL  MODE  I  THAT  GO  INTO  TACTICAL  MODE  2 
DISTANCE  FROM  X  FORCE  CENTROID  TO  X  FORCE 
WEAPON  TYPE  I  IN  TACTICAL  MODE  0=1,2 


45''. 

460. 

47C’.  C 

4S>''.  C 

4  90.  1 

sro. 

51 

52  0.  C 

5  3f'. 

540. 

550. 

56  0. 

S?''. 

58  .  C 


DIMENSION  XCHR (10, 5  )  ,YCHR  I  10, 5 > , XWPN  < 1 0 , 3 1 ,DXWYWP  (  TO  ,20 ,21 
1,  xTACA(2,3),OXFXWP( 10,2) 


Oli  10  1=1,10 
DO  20  K=l,10 
DO  3C  L=l,2 

XCAT=XCHR(1,4) 

IFTXCAT.EO.m  THEN 

IF(XTACA(2,  ! ).EQ.YCHR(K,4))  THEN 

IF (XT  AC A I  2,2) .GE . ABS (DX WVWP ( I ,K4 I L- 1  )♦ 10 , 1 )  )  )  THEN 
DIST  =  DXFXWPI 1,1) 


59' .  C 
6C0, 

6  10. 

62  0. 

63C. 

f40. 

65'  . 

6  6  0. 

67  . 

6  8;..  40 


SHIFT  HEAVY  WEAPONS  INTO  OVERUATCH 
00  40  M=1  , 10 

IF(XCHR(N,4).EQ.41  THEN 
1F(XUPN(M,21.GT.0)  THEN 

XWPN(H,3)  =  XUPN(H,21  *  XTACA(2,31 
XWPN(M,21  =  XWPN|M,2)  -  XUPWIM,3) 
DXFXWP(H,2)  =  DIST 
END  IF 
END  IF 
CONTINUE 


SIF  lED 
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SIFIED 


*  CWMTH 
REtuRN 


69C,. 

700. 

71  n. 

C 

12  n. 

END 

73  O". 

END  11 

79  0. 

END  IF 

750. 

c 

76  0. 

30 

CONTINUE 

770. 

20 

CONTINUE 

780. 

10 

CONTINUE 

79  0. 

C 

800. 

C 

ei  n. 

RETURN 

82  0. 

DEBUG  SUBCHN 

83fii. 

AT  1 

89  0. 

END 
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100. 

C»**^^i^*tiit^*******m*****j^  SUBROUTIK'E  TALLY 

no. 

C 

17  r. 

C 

13 

C 

Itif', 

SUBROUT  INE  1  ALL  Y  « XU PN,E?1  TL  SS  t  X A fi  TL  S  ,  XMNLSS  ,  XOE  YOl 

150. 

C 

itc. 

C 

THIS  SUBROUTINE  CUMULATES  XDEADII.JI,  TOTAL  LOSSES  OF 

17C. 

C 

X  FORCE  WEAPON  TYPE  1  IN  TACIUICAL  MODE  J:i,2.  THE 

I8C. 

C 

REMAINING  X  FORCE  WEAPON  TYPES  ARE  ALSO  DETERMINED. 

19:'. 

r 

200. 

c 

XWPNU.J^ll  NUMBER  OF  X  FORCE  TYPE  WEAPON  TYPE  1  IN 

210. 

c 

TACTICAL  MODE  j:i  ,2 

22C. 

c 

EXTLSSU.Jl  TOTAL  EXPECTED  LOSSES  FOR  X  FORCE  WEAPON 

2  3',. 

c 

TYPE  1  IN  TACTICAL  MODE  J=lt2 

2tO, 

c 

XMNLSSn.JI  MINE  LOSSES  FOP  X  FORCE  WEAPON  TYPE  I  IN 

2  7C. 

c 

TACTICAL  MODE  J'^  ,2 

2f’C, 

c 

291  , 

c 

300, 

DIMENSION  XWPNnQ(3i,EXTl.5  St  TO  ,  2  1 ,  XDEADI 1  0  *2  1  .X  AR  TLS  1 10 , 2  1 

310. 

1,  XMNLSStlQ,2} 

320. 

c 

■»3'  . 

c 

3*10. 

1 

DO  U)  j:i  ,2 

35;. 

DO  20  1=1,10 

3(0, 

c 

370. 

XUPNtl.J^n  :  XUPNtl,J«J3  -  EXTLSSIlfJJ  -  XMNLSStlvJl 

3(  0, 

XOEAOtliJ)  :  XOEAOtltvi)  EXTLSSI1,JI  «  XHNLSS  II  ,J) 

39  0, 

c 

•tOG, 

IFIXUFNUt  .G1  .0)  THEN 

‘lie. 

IFIXARTLS  ll,JI  .GT  .UUPNII  ,J«in  THEN 

*120. 

X  ARTLS 1 I,JI  =  XUPNI 1, 1 1 

113'  . 

END  IF 

im; . 

ENO  IF 

ust . 

c 

'•t  L. 

XWPMl,jm  :  X\)PNtI,J+ll  -  XARTLSI1,JI 

1170. 

XOEAOI1,JI  =  XOEADtIoJ)  •  XARTLSIl,Ji 

ttS'  . 

c 

QV  . 

20 

CONTINUE 

5t  0. 

10 

CONTINUE 

51 ... 

( 

52^. 

RETURN 

530, 

DEBUG  SUBCHH 

5*1 1  . 

M  1 

55::. 

END 
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JOOa  C  SUBROUTINE  TCRIN  ♦!?!('>»«♦#>»»♦*♦♦♦♦♦♦»♦♦♦* 

no.  C 
!  2  n.  c 

130.  C 

mtu  S08R0UT  INE  TER  INHS  A  T,IU<  25  *  PCK  VBE  .PCR  VBK  ,PCRW  V  B  .PCBVR  E  tPCB  VRH  , 

150.  ■#  PCewVR«DFCRC9AWDTH,B«DTH,RW0TH,0GHATT  I 

160.  C 

170.  C  THIS  SUBROUTINE  LOADS  THE  FOLLOWING  VISIBILITY  TABLES, 

ISO.  C  CORRIDOR  WIDTHS,  WEAPON  CATE060RY  DISTANCE  OFFSETS, 

•  190.  C  AND  DISENGAGEMENT  CRITERIA 

200.  C 

210.  C  IBAT  POINTER  TO  GAMER  SELECTED  TERRAIN  FILE 

220.  C  KK25  POINTER  FROM  VISIBILITY  FILE 

2-30.  C  PCHVBEJ  FRACTION  OF  RED  FORCE  WEAPON  CATEGORY  1 

2A0s  C  nrOISHOUNTED,  2:M0RTARS,  3:LIGHT, 

250.  C  A^HCAVY!  VISIBLE  TO  SLUE  FORCE  WEAPON 

260.  C  CATEGORY  J  iSEE  ABOVE)  IN  THE  KTH  RANGE 

270.  C  BAND  n  =  0-2Q0,  2r20D“A00,  3=*»00~e00, 

280.  C  f<:t00~800,  5=800-1000  )  DURING  ENGAGEMENT 

290.  C  PCBVREJI  ,J,MI  FRACTION  OF  BLUE  FORCE  WEAPON  CATEGORY  I 

3C0.  C  VISIBLE  TO  RED  FORCE  WEAPON  CATEGORY  J 


31 C.  C 
320.  C 
330.  C 
390.  C 
350.  C 
3£0.  C 
370.  C 
3fir.  c 
390.  C 

400.  C 
410.  C 
420,  C 
430.  C 
440.  C 
450,  C 
L'tC.  C 
470.  C 

401 .  C 
490.  C 
500.  C 
51  r.  C 
52 1.  C 
530,  C 
540,  C 

55  r ,  C 

56  0.  C 
570.  C 
580.  C 
590,  C 
6C0.  C 
fcit!.  C 
£20.  C 
630.  C 
641..  C 


IN  THE  KTH  RANGE  BAND  DURING  ENGAGEMENT 
JSEE  ABOVE) 

PCRVBUU,J,U)  FRACTION  OF  RED  FORCE  WEAPON  CATEGORY  1 
VISIBLE  TO  BLUE  FORCE  WEAPON  CATEGORY  J 
IN  THE  KTH  RANGE  BAND  DURING  BLUE  FORCE 
WITHDRAWAL  ISEE  ABOVE  ) 

PCBHVRI I  ,J,«8  FRACTION  OF  BLUE  FORCE  WEAPON  CATEGORY  1 
VISIBLE  TO  RED  FORCE  WEAPON  CATEGORY  J 
IN  THE  KTH  RANGE  BAND  DURING  BLUE  FORCE 
WITHDRAWAL  ISEE  ABOWt  ) 

PCRWVBS  1  ,J,«I  FRACTION  OF  RED  FORCE  WEAPON  CATEGORY  I 
VISIBLE  TO  BLUE  FORCE  WEAPON  CATEGORY  J 
IN  THE  KTH  RANGE  BAND  DURING  RED  FORCE 
KITHDRAUAL  ISEE  ABOVE) 

PC8WRHU,Jatt)  FRACTION  OF  BLUE  FORCE  WEAPON  CATEGORY  1 
VISIBLE  TO  RED  FORCE  WEAPON  CATEGORY  J 
IN  THE  KTH  RANGE  BAND  DURING  RED  FORCE 
idTHCRAHAL  ISEE  ABOVE) 

OGHATTIAeBJ  DISENGAGEMENT  ATTRITION  FRACTIONS.  OF 

WEAPON  CATEGORY  A  11=01 SMOUNTEO, 
2=M0RTARS,  3=L16HT,  4:HEAVYI  AND 
FORCE  8  U=BLUE,  2:RED) 

DFCWCfAjB)  DISTANCE  FROM  B  FORCE  CENTROID  TO  WEAPON 

WEAPON  CATEGORY  CENTROID  A  ISEL  ABOVE) 
ABOVE  1 

AWOTHlAjM)  CORRIDOR  WIDTHS  FOR  ATTACKER  WEAPON 

CATEGORY  A  IN  RANGE  BAND  K  ISEE  ABOVE  I 

BwDTHIAoft)  CORRIDOR  WIDTHS  FOR  UITHDRAWING  BLUE 

WEAPON  CATEGORY  A  IN  RANGE  BAND  K 
♦  SEE  ABOVE  J 

RUOTH<A,«)  CORRIDOR  WIDTHS  FOR  WITHDRAWING  RED 

WEAPON  CATEGORY  A  IN  RANGE  BAND  K 
ISEE  ABOVE) 


£5!'.  C 

66  0,  DIMENSION  PCR  V8E  1 4  ,4  ,5  )  ,PC  RUB  H  I  4 , 4 , 5  1 ,  PCR  «  VB  I  4, 4 , 5  I , 

670,  PCB  VKEI4  ,4,5)  aPCBVRHIVjfJeS  )  bPCBWVR  14,4  ,5  ), 

680,  ❖  AMDTH(4,5)9BUDTHI4,5),RWDlHt4,5),DGMATTI4,2  ), 
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69Do 

*  0FCWCI9,21 

700. 

C 

7ir. 

C 

72  f  . 

C 

SET  K2S  BASED  ON  DESIRED  FILE 

73  0. 

DEFINE  FILE  2 51 22 0, 20,  U. K 25 I 

7«IG. 

1 

I<25=35»«IBA1-1I«1 

750. 

C 

76  C. 

c 

READ  RED  VISIBLE  TO  BLUE  DURING  ENGA6ENENT 

770. 

DO  10  K=l,5 

780. 

REAOI25*K25  HtPCRVBElI  = 

790. 

10 

CONTINUE 

800. 

c 

8H. 

c 

READ  BLUE  VISIBLE  TO  RED  DURING  ENGAGEMENT 

620. 

00  20  K=l,5 

830, 

READ(25*K25 It (PCBVRE41 ,J,KI .1  =  1.91,  J  =  l« 91 

89  0. 

2C 

CONTINUE 

85r. 

C 

86  '  . 

c 

READ  RED  VISIBLE  TO  BLUE  WITHDRAWING 

67  0, 

00  30  W=l,5 

88  0. 

REA0«2  5«K2Sltf PCRVBHil , J.Kl .1  =  1,91,  J=1.91 

8  9  0. 

3r 

CONTINUE 

9ri0. 

c 

9]  r. 

c 

READ  BLUE  WITHDRAWING  VISIBLE  10  RED 

92C. 

DO  90  K=1  ,5 

930, 

READ(2  5*K25II4PCBWVR<1,J,K1 ,1  =  1,9  1, J=1  ,9  1 

99  2, 

90 

CONTINUE 

95  P. 

c 

96  i!. 

c 

READ  RED  WITHDRAWING  VISIBLE  TO  BLUE 

970, 

DO  50  K=l,5 

98C, 

REAOI2  5«t(25lltPCRWVB41,  J|K1,1  =  1,9),  J=l,91 

99' , 

f  0 

CONTINUE 

1  "OD. 

c 

i  01  0. 

c 

READ  BLUE  VISIBLE  TO  RED  WITHDRAWING 

102G. 

00  60  K=  1  ,5 

1  C3D. 

READ  4  25  *K2 5 1  4  4  PCB VRW 4 1 ,J ,K  1 , 1  =  1 , 91 , J=  1 ,9  1 

1D9C. 

6  '! 

CONTINUE 

1  Li  5  G  , 

c 

1  06  0, 

c 

READ  OFFSET  DISTANCES  FOR  BLUE  THEN  RED 

107C. 

REA04  25  •K25I  4  40FCUCII ,Jl, 1= 1 , 91 ,J=1 ,2 1 

10"0. 

c 

1  :-9c. 

c 

READ  CORRIDOR  WIDTHS  FOR  THE  ATTACKER 

1 IGO. 

READ 4 25  * K2S1 4  4 AW01H4I,JI,J= 1, 51,1=1,9  1 

1110. 

c 

1  1  4  0, 

c 

READ  BLUE  WITHDRAWAL  WIDTHS 

1130. 

REA0425  *K251  4  4BW0TH41,  Jl , J= ], 51 ,1  =  1 ,9 1 

1190, 

c 

115. 

c 

READ  RED  WITHDRAWAL  WIDTHS 

1160. 

READ4  25  «K2S1  4  4RWDTHII , Jl , J= ] , S 1 ,1  =  1 , 9 1 

1170, 

1 

118  , 

c 

READ  DISENGAGEMENT  CRITERIA 

119. 

READ  42  5  *K25  1  4  4 OG MATT4 I , J 1 , 1 =  1 , 91 , J= 1 , 2 1 

120C. 

c 

121;. 

CLO'E  42  51 

1  U  . 

J<K25=K25 

1  230. 

R  1  TURN 

129!. 

c 

DEBUG  SUBCHH 

125!  . 

c 

A1  1 

1  26f . 

LT.D 

N  1 53  I  BANK  390  Dt ANK 
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SIFIED 


OIAMPUBLISH .TIHENG 
R1  n«»/OW  82-10:3310,1 

lOOo  c *♦♦’>*»*«*:'**«  SUBROUTINE  TIMENG  #♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦ 

no.  C 
I2r<.  c 

13f.’i  C 

liJDo  SUBROUTINE  T IME  N6  4S  OUUTH  ,X  ¥PK  W  j  X  YR6BD  ,XCHR  ,  YCHfi,T  Of  AT  , 

IbOc  I  XOTCTaXTHENG  1 

IfOc  C 


170, 

38  r, 
190, 
200. 

21  n. 

22  0. 

2  30, 
ZRO, 
25r, 
260. 
270. 
280. 
290. 
300o 
310, 
32  0. 
330, 
3*10, 
35r. 
•360. 

3  TO. 
380. 

39  0. 
900, 
£)J0, 
«»2C, 
n30, 

*1400 

nsv.,, 

960, 
97C. 
i«sn„ 
«i9f:. 
SCO. 
510. 
520, 
53'% 
5tlf  , 
55?', 
560. 

57  0. 

58  0, 
59-, 
600. 
6 1  0, 
62  f;. 
£3=-, 
69  0, 
650. 
66  0, 
670, 
680, 


C 

€ 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

c 

c 

c 


c 

c 

100 


c 


c 


THIS  SUBROUTINE  CALCULfiTES  ,  JlTHENGI  I,H,  Jl,  TIME  TO  ENGAGE 
FOR  S  FORCE  UEAPON  TYPE  I  IN  TACTICAL  MODE  J=l,2  TO  ALL 
Y  FORCE  TARGET  TYPE  H  OF  WHICH  H=12,2C  ARE  IN  TACTICAL 
MODE  2 

XQVUTH  INDEX  FOR  X  FORCE:  NOT  IN  OVER  WAT  CH :?!  , 

IN  0VERHATCH:2 

XDTCT<A,B,C1  >  FORCE  DETECT  TIMES  BASED  ON  EXPOSURE 
A,  SENSORS  0,  and  RANGE  BAND  C 

XVPMlf  t  i  ,H,  J1  PROBABILITY  OF  KILL  FOR  X  FORCE 

kEAPON  TYPE  I  IN  TACTICAL  MODE  J=l,2 
AGAINST  Y  FORCE  TARGET  TYPE  H  OF  WHICH 
M:n,2C  ARE  IN  TACTICAL  MODE  2 

X  YRGB04  I  f<ANGE  BANOS  FOR  X  FORCE  WEAPON  TYPE  I 

IN  TACTICAL  MODE  j:l,2  AGAINST  Y  FORCE 
TARGET  TYPE  M  OF  WHICH  H:ll,20  ARE  IN 
TACTICAL  MODE  2 

XCHRUolJ  CONTAINS  SENSOR  TYPE  FOR  X  FORCE 

WEAPON  TYPE  1:  EYEH,  0PTICAL:2 
TH£R«AL=3,  IMAGE  INTENSl FIER =9 

VCHRUt^lS  CONTAINS  CATEGORY  OF  Y  FORCE  WEAPON 

TYPE  1;  DISMOUNTED:!,  M0RTARS:2 
L16HT:39  H£AUY:9 

YOFAT  Y  FORCE  DEFEND  OR  ATTACK  VARIABLE: 

defend:!,  ATTACK:2 

lEXPSR  A;  VEHICLE  EXPOSED:!,  VEHICLE  IN  DEFILADE:? 

SOLDIEF<  EXP0SE0:3,  SOLDIER  IN  DEFILA0E:9 


DIMENSION  XVPKW  « 10«20,2 1 ,» YPGBDl  ID, 20 ,2 1 , XCHH  I  1C ,5  1 
1  5  \'CHR«  10,5  5  ,XlMENGjlOo  20 ,2  5 ,  XDTCt  I  »• ,  9  ,5  » 


DO  10  J:l  ,2 
DO  20  1:1,10 
00  30  l:J,2 
DO  ‘iG  K:l  ,10 

ICAT  :YCH1<{|{  ,95 

ifcxypkwu9K^<L"1soio,j).6T,o)  then  . 

IF  JICAToEQ.31  THEN 
IF  «Y0FAT,E0,21  THEN 
lEXPSR: 1 
ELSE 

lEXPsrca 

END  IF 

ELSE  IFaCAT.EQ,4!  THEN 
]FnDFAT,E0,2J  THEN 
I  n..E0.2J  THEN 

If  U0«MTH.£Q,21  THEN 


i 


C  YPTm 
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69  G. 

1EXPSR:2 

700. 

ELSE 

71  n. 

lEUPSR-l 

72  . 

END  IF 

73  0, 

ELSE 

?'(•  . 

IEXPSR: 1 

75C. 

END  IF 

76  . 

ELSE 

77  '  . 

ItXPSRr? 

780. 

END  If 

79-  . 

C 

80  C. 

ELSE  JFUCAl.EQ.ll  THEN 

ei . , 

If  «  YDFA7.EQ.2I  THEN 

820. 

1F(L.EQ.2I  THEN 

8  20. 

lEXPSRr  3 

e*tr. 

ELSE 

85'  . 

1EXPSR:9 

Gto. 

EKO  If 

87  0. 

ELSE 

88  f. 

IEXPSR:9 

890. 

END  If 

900. 

C 

91  V. 

ELSE 

92:.. 

IE  XPSR: 9 

93C. 

C 

99:’. 

END  If 

950. 

C 

96  0, 

XTMEN6n,K«a“ll*10,J  1  = 

97 

1  XDTCTIUXPSR,XCHRI1  ,  1 1 ,  XYRGBD 1 1  ,K  ♦  il- 11  *1 0  ,  Jll 

SB", 

c 

99  •, 

El  5E 

1000, 

XTMENGn,H«IL-ll*10,J  1  :  9999999 

1  vio. 

E'O  If 

1020. 

c 

1030. 

IF  <XTMEN6U»»<<IL-11*10,  Jl.LE.Ol  THEN 

1  09  0. 

XIHENGU  »K<1L-1I-H0,  J1  r  9999999 

1  "5G. 

EKO  If 

1  ''60, 

c 

1  1  70. 

9  r. 

CONTINUE 

1  OBC. 

3C 

CONTINUE 

1  r'9Q. 

2C 

CONTINUE 

iro. 

10 

CONTINUE 

111-'. 

c 

112 

Rt  TURN 

1  1  3!'. 

DEBUG  SUBCHK 

119''. 

/T  100 

1  I*-!!. 

END 

N  312  IbANK  75 

OBANK 
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ilFIED 


OIAHPUBLl 
I  OK/QW 
ICQ.  C 
HD.  C 
1?{).  C 
13'1.  C 
3<»Q. 

15Q.  C 

16  r.  c 

170.  C 
180.  C 
19Q.  C 
2Q0.  C 
210.  C 
220.  C 
2  30.  C 
2t>0.  C 
250.  C 
260.  C 
270.  C 
28r,  C 
290.  C 
300.  C 
31 0.  C 

32  n.  C 

33  0. 

3*»C. 

350,  C 
36  0.  C 
370.  1 

380. 

390. 

100. 

C 

wn. 

930. 

9<)0« 

950. 

960. 

970. 

98  0, 

990. 

500.  C 

51  r.  9 

52 '%  3 

53  0.  2 

59  0.  1 

55  0,  C 

56  C. 

570, 

500, 

59  0, 


SH.THKLL 
e2-lQs33<0  ,l 


SUBROUTINE  TMKLL  i;^#**** 


SUBROUTINE  T  HKLL  U  T  ME  N6  ,  XCH  R,  )!RDKLL  ,X  TRGBO  ,  XTHKIL  1 

THIS  SUBROUTINE  CALCULATES,  X TMKLL 1 1 ,M, J» ,  THE  TIME  TO  KILL 
FOR  X  FORCE  WEAPON  TYPE  J  2N  TACTICAL  MODE  J=1 ,2  AGAINST 
Y  FORCE  target  TYPES  K  OF  WHICH  H:ll,20  ARE  IN  TACTICAL 
MODE  2 


X VRGBOi 1 ,N ,JI 


XlHENGt 


XCHR(I,21 

XCHRIItSI 


DIMENSION 

1  . 


RANGE  BANDS  FROM  X  FORCE  WEAPON  TYPE  1  IN 
TACTICAL  MODE  J=l,2  TO  Y  FORCE  TARGET  TYPE 
H  OF  WHICH  M  =  n,20  ARE  IN  TACTICAL  MODE  2 
TIME  TO  engage  FOR  X  FORCE  WEAPON  TYPE  1  IN 
TACTICAL  MODE  <J  =  1,2  AGAINST  V  FORCE  TARGET 
TYPES  H  OF  WHICH  M=11,2D  ARE  TACTICAL  MODE  2 
CONTAINS  FLIGHT  TIME  IN  SECS/200  MtTER  RANGE 
BANOS  FOR  X  FORCE  WEAPON  TYPE  1 
CONTAINS  TIME  TO  AIM,  FIRE,  AND  RELOAD  FOR 
X  FORCE  WEAPON  TYPE  I 


XTMENG 110,20, 21 ,XCHR< 10,51 , XROKLL I  1 0, 20 , 2 1 
XYRGDOl 10,20,2) ,XTMKLL 110, 20,21 


DO  10  J:l ,2 
00  20  l:\,10 
00  30  L=1,2 
DO  90  K=1  ,10 


1F1XYR60DII ,K*«L-l)9lO,J).EQ.t)  THEN 
XTHKLLU,K-*<L*1)'»10,J1  :  0 
ELSE 

X1MKLLI1,K«1L-UP10,J1  =  XTMENGI I  ,K  «  It  - 11  *1  C  ,  J) 

«  IXCHRI1,51  «  XCHRII,2)  «  XYRGBO 11 ,K « I L- ))« 10, J) I 
0  IXROKLH  l,tt*lL- ll’S'lO,  J)  I 

ENO  IF 

XTHKLLn,K<  IL-U'tlO.J)  =  XTHKLLIl  ,  K  « IL-1  )♦  1 0,  J  1  /  60. 


CONT  INUE 
CONTINUE 
CONTINUE 
CONTINUE 

RETURN 

DEBUG  SUBCHK 

AT  1 

ENO 


1  260  IBANK  62  OBANK 
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DIAMPUBUSH 
(  0«/0}/82 
lOO*  t** 
13  Cu  C 
jzr,  C 
13.'.  C 
IMQ, 

^SO. 

J£».  C 
17f..  C 
ISO.  c 
39C.  C 
192,  C 
2CO.  C 
23  0»  C 
22G.  C 
2  3C.  C 
29r,  C 
250,  C 
26C«  C 
275.  C 
28C,  C 
29C,  C 
30C,  C 

31  •  .  C 

32  C.  C 

33r. 

3*iC< 

3!C,  C 
3tC<.  1 

370. 

36G. 

39G, 

QfC.  C 
<flO. 

<420. 

<»3C. 

‘4<IC. 

<»5'  . 

<«€:.  C 

<47',  HO 

net.  30 

H9r.  20 

510.  10 

^  1 1  .  c 

52  r.  c 

530. 

'HO. 

55  C. 

5fcr. 

57C. 

5gO.  70 

59.%  60 

fe'O,  50 

61  C 

62  c 

e3P. 

61i  . 

(50. 


.UPNGST 

-13:3310,1  • 

*«•*«•«•♦•***««**«*•« 


SUBROUTINE  UPNOST  ************ ****««**4>* 


SUBROUTINE  UPNOST<OBFBUP,DfiFRUP,OSTBR ,BWPN ,RWPN,DeURUP , 

1  OSTHINl 

THIS  SUBROUTINE  CALCULATES  DBURyPtl ,H ,J, 1 ,  THE  DISTANCE 

FROM  BLUE  FORCE  WEAPON  TYPE  I  IN  TACTICAL  NODE  J=l,2  TO  RED 
FORCE  WEAPON  TYPE  H  OF  WHICH  H:ll,20  ARE  IN  TACTICAL 
MODE  2 


DBFBWPI I ,J1 
ORFRWPIKiL 1 
OSTBR 

BWPNII,  J-*l  1 
RHPN(K,L«1 I 
OSIMIN 


DISTANCE  FROM  BLUE  FORCE  CENTROID  TO  BLUE  FORCE 
WEAPON  TYPE  I  IN  TACTICAL  NODE  J=1 ,2 
distance  FRON  red  force  CENTROID  TO  RED  FORCE 
WEAPON  TYPE  K  IN  TACTICAL  NODE  L=I,2 
DISTANCE  BETWEEN  BLUE  AND  RED  FORCE  CENTROIDS 
NUHBER  OF  BLUE  WEAPON  TYPE  I  IN  TACTICAL 
NODE  J=l,2 

NUHBER  OF  RED  WEAPON  TYPE  K  IN  TACTICAL 
NODE  L:l,2 

HlNlHUH  DISTANCE  BETWEEN  OPPOSING  WEAPONS 


OINENSION  OBF8UPnO,21,ORFRWP«  10,2l,dWPNI  10,31 
1.  RWPNnQ,31,DBWRWPI10,20,2l 

00  10  J:l  ,2 
00  20  1=1,10 
DO  30  L=l,2 
DO  HO  K=I  ,10 

1F<BWPN(I,U« 11.61. C  .AND.  RWPNIK ,L« 11 .6T.0 1  THEN 

DBvRWPII,K«tL-I)*}G,J  1  =  DSTBR-DBFBWPI1,J1-0RFRWPIN,L1 
EL  SE 

08URWPU,K-*«L-JI*I0,J)  =  -9999999 

E«0  IF 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

DETERMINE  NINIHUH  DISTANCE  BETWEEN  OPPOSING  WEAPONS 
DSTNIN  r  ABS  f  DBWRWPT 1 ,  1,  111 
DO  50  1=1,10 
DO  63  H=l,20 
DO  70  J=1  ,2 

OSTHIN  =  AHINIfDSTHlN,ABS(OBWRWP(l,H,jn) 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

DEBUG  SU6CHK 

AT  1 

£f4D 
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